- 24 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/09/24 17:48]
- 以前自慢スレで、存在するファイルのみを読み込む
(defadvice find-file (before existing-file activate compile)
"When interactive, find file existing files only."
(interactive "fFind file: \np"))
を書いた者です。
新規ファイルが作れないのが自分でも不便に思ってきたので、
簡単ですが新しいのを考えましたです。
(defun my-find-file (filename &optional wildcards)
(interactive "FFind file: \np")
(when (or (file-exists-p filename)
(y-or-n-p "Not exists. New file? "))
(find-file filename)))
(global-set-key "\C-x\C-f" 'my-find-file)
今度はいかがでしょうか？
|
 |
