From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 3 Jun 2003 11:08:25 +0000 (+0000)
Subject: (after-find-file): Simplify msg if nonexistent directory.
X-Git-Tag: ttn-vms-21-2-B4~9778
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07703430571e2ea5219d776a7e3a7978e2de65f1;p=emacs.git

(after-find-file): Simplify msg if nonexistent directory.
(make-directory): Doc fix.
---

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)