Mercurial > hg > xemacs-beta

diff lisp/minibuf.el @ 225:12579d965149 r20-4b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b11
author cvs
date Mon, 13 Aug 2007 10:11:40 +0200
parents d44af0c54775
children 0e522484dd2a
line wrap: on
line diff
--- a/lisp/minibuf.el	Mon Aug 13 10:10:55 2007 +0200
+++ b/lisp/minibuf.el	Mon Aug 13 10:11:40 2007 +0200
@@ -1645,7 +1645,8 @@
    'read-file-name-internal))
 
 (defun read-directory-name (prompt
-                            &optional dir default must-match initial-contents)
+                            &optional dir default must-match initial-contents
+			    history)
   "Read directory name, prompting with PROMPT and completing in directory DIR.
 This will prompt with a dialog box if appropriate, according to
  `should-use-dialog-box-p'.
@@ -1660,7 +1661,7 @@
  `file-name-history'.
 DIR defaults to current buffer's directory default."
   (read-file-name-1 
-    'file-name-history
+    (or history 'file-name-history)
     prompt dir (or default default-directory) must-match initial-contents
     'read-directory-name-internal))