From b3acb094ec7180eb596a51e22efe72d98cec1d46 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 23 Nov 2007 00:33:48 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 15 +++++++++++++++ lisp/dired.el | 8 ++++++-- 2 files changed, 21 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 393f7791e2c..2a18864beec 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,18 @@ +2007-11-23 Juri Linkov + + * 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 * emacs-lisp/lisp.el (beginning-of-defun-raw): Pass `arg' down to diff --git a/lisp/dired.el b/lisp/dired.el index 4502609013b..ab56579e718 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -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 -- 2.39.2