mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2008-05-02 17:22:04 +00:00
parent 330b50982d
commit 2bd49e46f4
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
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.

2
lisp/files.el
View File

@ -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)