[Emacs-diffs] /srv/bzr/emacs/trunk r100589: Fix bug #6396.

[Eli Zaretskii]

------------------------------------------------------------
revno: 100589
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2010-06-12 14:17:12 +0300
message:
  Fix bug #6396.
  
   files.el (make-directory): Doc fix.
modified:
  lisp/ChangeLog
  lisp/files.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-12 08:59:37 +0000
+++ b/lisp/ChangeLog    2010-06-12 11:17:12 +0000
@@ -1,3 +1,7 @@
+2010-06-12  Eli Zaretskii  <address@hidden>
+
+       * files.el (make-directory): Doc fix (bug#6396).
+
 2010-06-12  Michael Albinus  <address@hidden>
 
        * net/tramp.el (tramp-remote-process-environment): Protect version

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2010-06-01 02:34:49 +0000
+++ b/lisp/files.el     2010-06-12 11:17:12 +0000
@@ -4635,16 +4635,17 @@
       (force-mode-line-update))))
 
 (defun make-directory (dir &optional parents)
-  "Create the directory DIR and any nonexistent parent dirs.
-If DIR already exists as a directory, signal an error, unless PARENTS is set.
-
-Interactively, the default choice of directory to create
-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.  Interactively,
-this happens by default."
+  "Create the directory DIR and optionally any nonexistent parent dirs.
+If DIR already exists as a directory, signal an error, unless
+PARENTS is non-nil.
+
+Interactively, the default choice of directory to create is the
+current buffer's default directory.  That is useful when you have
+visited a file in a nonexistent directory.
+
+Noninteractively, the second (optional) argument PARENTS, if
+non-nil, says whether to create parent directories that don't
+exist.  Interactively, this happens by default."
   (interactive
    (list (read-file-name "Make directory: " default-directory default-directory
                         nil nil)