[Emacs-diffs] Changes to emacs/lisp/files.el

[Richard M. Stallman]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.660 emacs/lisp/files.el:1.661
*** emacs/lisp/files.el:1.660   Sat May 31 03:58:55 2003
--- emacs/lisp/files.el Tue Jun  3 07:08:25 2003
***************
*** 1524,1532 ****
              (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")))))
        (when msg
        (message "%s" msg)
        (or not-serious (sit-for 1 nil t))))
--- 1524,1530 ----
              (setq buffer-read-only nil))
             (t
              (setq buffer-read-only nil)
!             "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,3407 ****
  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."
    (interactive
     (list (read-file-name "Make directory: " default-directory 
default-directory
                         nil nil)
--- 3399,3406 ----
  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.  Interactively,
! this happens by default."
    (interactive
     (list (read-file-name "Make directory: " default-directory 
default-directory
                         nil nil)