diff options
author | Kim F. Storm <[email protected]> | 2004-09-12 18:52:03 +0000 |
---|---|---|
committer | Kim F. Storm <[email protected]> | 2004-09-12 18:52:03 +0000 |
commit | 17aa33855f4600aa7ca9cf00f4cb9f98a9720c61 (patch) | |
tree | 0a03056e23fb742bcf899163743ecebb93adbd7e | |
parent | f2e92e79546e9adc949ccf4608f64e9558d8cdf3 (diff) |
(choose-completion-string): Set buffer before running
choose-completion-string-functions hook so it can be buffer-local.
-rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 75d2cef849..e7498d6778 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4297,11 +4297,12 @@ to decide what to delete." (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) |