Mercurial > emacs
changeset 23172:a47eab4fc085
(quail-choose-completion-string): Store
completion `choice' in `quail-current-str'; don't insert it.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 03 Sep 1998 11:10:40 +0000 |
| parents | 79e077f57e7c |
| children | 073e555c28c8 |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/quail.el Wed Sep 02 05:25:38 1998 +0000 +++ b/lisp/international/quail.el Thu Sep 03 11:10:40 1998 +0000 @@ -1769,14 +1769,14 @@ (not (equal buffer (window-buffer (active-minibuffer-window)))))) (quail-error "Minibuffer is not active for completion") - ;; Insert the completion into the buffer where completion was requested. + ;; Store the completion in `quail-current-str', which will later + ;; be converted to a character event list, then inserted into + ;; the buffer where completion was requested. (set-buffer buffer) ; (if base-size ; (delete-region (+ base-size (point-min)) (point)) ; (choose-completion-delete-max-match choice)) - (insert choice) - (remove-text-properties (- (point) (length choice)) (point) - '(mouse-face nil)) + (setq quail-current-str choice) ;; Update point in the window that BUFFER is showing in. (let ((window (get-buffer-window buffer t))) (set-window-point window (point)))