emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Minibuffer default values list


From: Richard Stallman
Subject: Re: Minibuffer default values list
Date: Mon, 19 Nov 2007 14:02:29 -0500

Thanks for working on this.  If nobody finds a problem in a few days,
please install it.




Index: lisp/dired.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired.el,v
retrieving revision 1.372
diff -c -r1.372 dired.el
*** lisp/dired.el       18 Oct 2007 15:59:01 -0000      1.372
--- lisp/dired.el       19 Nov 2007 00:52:04 -0000
***************
*** 595,602 ****
            (if (next-read-file-uses-dialog-p)
                (read-directory-name (format "Dired %s(directory): " str)
                                     nil default-directory nil)
!             (read-file-name (format "Dired %s(directory): " str)
!                             nil default-directory nil)))))
  
  ;;;###autoload (define-key ctl-x-map "d" 'dired)
  ;;;###autoload
--- 591,602 ----
            (if (next-read-file-uses-dialog-p)
                (read-directory-name (format "Dired %s(directory): " str)
                                     nil default-directory nil)
!             (let ((default (and buffer-file-name
!                                 (abbreviate-file-name buffer-file-name))))
!               (minibuffer-with-setup-hook
!                   (lambda () (setq minibuffer-default default))
!                 (read-file-name (format "Dired %s(directory): " str)
!                                 nil default-directory nil)))))))
  
  ;;;###autoload (define-key ctl-x-map "d" 'dired)
  ;;;###autoload

-- 
Juri Linkov
http://www.jurta.org/emacs/





reply via email to

[Prev in Thread] Current Thread [Next in Thread]