Commit 2bd49e46 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(minibuffer-with-setup-hook): Allow `fun' expressions rather than only value.

parent 330b5098
2008-05-02 Stefan Monnier <monnier@iro.umontreal.ca>
 
* files.el (minibuffer-with-setup-hook): Allow `fun' expressions rather
than only value.
* dired.el (dired-read-dir-and-switches):
Set minibuffer-completing-file-name and call substitute-in-file-name.
 
......
......@@ -1124,7 +1124,7 @@ Recursive uses of the minibuffer will not be affected."
;; Clear out this hook so it does not interfere
;; with any recursive minibuffer usage.
(remove-hook 'minibuffer-setup-hook ,hook)
(,fun)))
(funcall ,fun)))
(unwind-protect
(progn
(add-hook 'minibuffer-setup-hook ,hook)
......
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