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)
なんか、環境変わるたびに書いてるような気がする。
ま、いっか。