find-file をちょっとだけいじる

find-file でタイプミスして新しいファイルを開いてしまうことがよくある。

そんなときは、ほんとに新しいファイルを開くのかと聞いてほしい。

(defun my-find-file (fn)
(interactive "FFind file: ")
(cond ((file-exist-p fn)       (find-file fn))
((y-or-n-p "new file? ") (find-file fn))))

(define-key ctl-x-map #\C-\f 'my-find-file)

なんか、環境変わるたびに書いてるような気がする。

ま、いっか。