Mercurial > emacs

changeset 57069:eadbbac38074

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(choose-completion-string): Set buffer before running choose-completion-string-functions hook so it can be buffer-local.
author Kim F. Storm <storm@cua.dk>
date Sun, 12 Sep 2004 18:52:03 +0000
parents f728de462db7
children 3d9707888790
files lisp/simple.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Sun Sep 12 18:51:22 2004 +0000
+++ b/lisp/simple.el	Sun Sep 12 18:52:03 2004 +0000
@@ -4297,11 +4297,12 @@
 		 (not (equal buffer
 			     (window-buffer (active-minibuffer-window))))))
 	(error "Minibuffer is not active for completion")
+      ;; Set buffer so buffer-local choose-completion-string-functions works.
+      (set-buffer buffer)
       (unless (run-hook-with-args-until-success
 	       'choose-completion-string-functions
 	       choice buffer mini-p base-size)
 	;; Insert the completion into the buffer where it was requested.
-	(set-buffer buffer)
 	(if base-size
 	    (delete-region (+ base-size (if mini-p
 					    (minibuffer-prompt-end)