;;;; file-region.el
;;; Time-stamp: <2001-09-05 15:43:54 jcgs>

(defun write-region-and-find-it (start end file)
  "Write region from START to END into FILE and find it in a buffer."
  (interactive "r
FWrite region to file: ")
  (if (or (not (file-exists-p file))
	  (yes-or-no-p (format "File %s already exists -- overwrite? " file)))
      (progn
	(write-region start end file)
	(find-file file))))

;;; end of file-region.el