Commit b3acb094 authored by Juri Linkov's avatar Juri Linkov

(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.
parent 8783fe91
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
......
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment