4297 |
(not (equal buffer |
(not (equal buffer |
4298 |
(window-buffer (active-minibuffer-window)))))) |
(window-buffer (active-minibuffer-window)))))) |
4299 |
(error "Minibuffer is not active for completion") |
(error "Minibuffer is not active for completion") |
4300 |
|
;; Set buffer so buffer-local choose-completion-string-functions works. |
4301 |
|
(set-buffer buffer) |
4302 |
(unless (run-hook-with-args-until-success |
(unless (run-hook-with-args-until-success |
4303 |
'choose-completion-string-functions |
'choose-completion-string-functions |
4304 |
choice buffer mini-p base-size) |
choice buffer mini-p base-size) |
4305 |
;; Insert the completion into the buffer where it was requested. |
;; Insert the completion into the buffer where it was requested. |
|
(set-buffer buffer) |
|
4306 |
(if base-size |
(if base-size |
4307 |
(delete-region (+ base-size (if mini-p |
(delete-region (+ base-size (if mini-p |
4308 |
(minibuffer-prompt-end) |
(minibuffer-prompt-end) |