Mercurial > emacs
comparison lisp/files.el @ 74594:2d4bd414638f
Whitespace change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 11 Dec 2006 04:40:41 +0000 |
| parents | 65224088bcb2 |
| children | 2a54a5dd0df4 6588c6259dfb |
comparison
equal
deleted
inserted
replaced
| 74593:40a1830ca2db | 74594:2d4bd414638f |
|---|---|
| 2924 Interactively, confirmation is required unless you supply a prefix argument." | 2924 Interactively, confirmation is required unless you supply a prefix argument." |
| 2925 ;; (interactive "FWrite file: ") | 2925 ;; (interactive "FWrite file: ") |
| 2926 (interactive | 2926 (interactive |
| 2927 (list (if buffer-file-name | 2927 (list (if buffer-file-name |
| 2928 (read-file-name "Write file: " | 2928 (read-file-name "Write file: " |
| 2929 nil nil nil nil) | 2929 nil nil nil nil) |
| 2930 (read-file-name "Write file: " default-directory | 2930 (read-file-name "Write file: " default-directory |
| 2931 (expand-file-name | 2931 (expand-file-name |
| 2932 (file-name-nondirectory (buffer-name)) | 2932 (file-name-nondirectory (buffer-name)) |
| 2933 default-directory) | 2933 default-directory) |
| 2934 nil nil)) | 2934 nil nil)) |