Mercurial > emacs
changeset 51423:4b0652a2bde5
(after-find-file): Simplify msg if nonexistent directory.
(make-directory): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Jun 2003 11:08:25 +0000 |
| parents | 509508a92422 |
| children | 26d468be5b3c |
| files | lisp/files.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Jun 03 11:07:23 2003 +0000 +++ b/lisp/files.el Tue Jun 03 11:08:25 2003 +0000 @@ -1524,9 +1524,7 @@ (setq buffer-read-only nil)) (t (setq buffer-read-only nil) - (if (file-exists-p (file-name-directory (directory-file-name (file-name-directory buffer-file-name)))) - "Use M-x make-directory RET RET to create the directory" - "Use C-u M-x make-directory RET RET to create directory and its parents"))))) + "Use M-x make-directory RET RET to create the directory and its parents")))) (when msg (message "%s" msg) (or not-serious (sit-for 1 nil t)))) @@ -3401,7 +3399,8 @@ That is useful when you have visited a file in a nonexistent directory. Noninteractively, the second (optional) argument PARENTS says whether -to create parent directories if they don't exist." +to create parent directories if they don't exist. Interactively, +this happens by default." (interactive (list (read-file-name "Make directory: " default-directory default-directory nil nil)