Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(dired-read-dir-and-switches): For C-x d, set the value for M-n to the

Browse source 
visited file name of the current buffer.  Use minibuffer-with-setup-hook
to set minibuffer-default to buffer-file-name inside read-file-name.
This commit is contained in:
Juri Linkov 2007-11-23 00:33:48 +00:00
parent 8783fe91be
commit b3acb094ec
2 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/ChangeLog
View file

@ -1,3 +1,18 @@
2007-11-23 Juri Linkov <juri@jurta.org>
* dired.el (dired-read-dir-and-switches): For C-x d, set the
value for M-n to the visited file name of the current buffer.
Use minibuffer-with-setup-hook to set minibuffer-default to
buffer-file-name inside read-file-name.
* man.el (Man-getpage-in-background): Don't disregard user option
`Man-width' on non-window systems. Remove test for `window-system'
around setting envvar "COLUMNS" depending on the value of `Man-width'.
* progmodes/grep.el (grep-process-setup): Set envvar "TERM" to
"emacs-grep". Set envvar "GREP_OPTIONS" to "--color=auto" instead
of "--color=always".
2007-11-22 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/lisp.el (beginning-of-defun-raw): Pass `arg' down to

8
lisp/dired.el
View file

@ -595,8 +595,12 @@ Don't use that together with FILTER."
(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)))))
(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