- 32 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/09/26 20:09]
- (defun my-find-file (filename &optional wildcards)
(interactive "FFind file: \np")
(unless (or (file-exists-p filename) (string-match "[[*?]" filename)
(y-or-n-p "Not exists. New file? "))
(let* ((regexp (concat "^" (regexp-quote default-directory) "\\(.*\\)"))
(str (progn
(string-match regexp filename)
(match-string 1 filename))))
(catch 'exit
(while t
(setq filename
(read-file-name "Find file: " default-directory nil nil str))
(when (or (file-exists-p filename) (string-match "[[*?]" filename)
(y-or-n-p "Not exists. New file? "))
(throw 'exit t))
(string-match regexp filename)
(setq str (match-string 1 filename))))))
(find-file filename wildcards))
|
 |
