|
| From: | Jaeyoun Chung |
| Subject: | Re: returning to 21.3 version of C-x C-f RET |
| Date: | 19 Apr 2005 20:44:00 -0700 |
| User-agent: | G2/0.2 |
Use this simple fixup:
(defun find-file-read-args (prompt mustmatch)
(list (let ((find-file-default
(and buffer-file-name
(abbreviate-file-name buffer-file-name))))
(read-file-name prompt nil find-file-default mustmatch))
t))
| [Prev in Thread] | Current Thread | [Next in Thread] |