- 34 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/09/26 21:07]
- こんなのも考えてみた。
(defun my-find-file-interactive-arg (&optional initial)
(let* ((insert-default-directory (null initial))
(name (read-file-name "Find file: " nil nil nil initial))
(file (expand-file-name name)))
(cond ((file-exists-p file) (list file))
((y-or-n-p (format "File %s not exists, New file?" file))
(list file))
(t (my-find-file-interactive-arg name)))))
(defun my-find-file (filename &optional wildcards)
(interactive (my-find-file-interactive-arg))
(find-file filename wildcards))
なんか、 point が filename の最初に来ちゃうんだけどね…
|
 |
