From 07703430571e2ea5219d776a7e3a7978e2de65f1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Jun 2003 11:08:25 +0000 Subject: [PATCH] (after-find-file): Simplify msg if nonexistent directory. (make-directory): Doc fix. --- lisp/files.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 7ce59dd6035..874935c6347 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1524,9 +1524,7 @@ unless NOMODES is non-nil." (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 @@ is the current default directory for file names. 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) -- 2.39.2