Mercurial > hg > xemacs-beta

diff lisp/minibuf.el @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 0e522484dd2a
children c5d627a313b1
line wrap: on
line diff
--- a/lisp/minibuf.el	Mon Aug 13 10:25:39 2007 +0200
+++ b/lisp/minibuf.el	Mon Aug 13 10:26:29 2007 +0200
@@ -1934,6 +1934,8 @@
 	  (setq user-data (list filebuf dirbuff filewin dirwin))
 	  (set-window-buffer (frame-lowest-window frame) butbuff)
 	  (set-buffer butbuff)
+	  (when dir
+	    (setq default-directory dir))
 	  (when (featurep 'scrollbar)
 	    (set-specifier scrollbar-width 0 butbuff))
 	  (insert "                 ")