From: Kenichi Handa Date: Thu, 3 Sep 1998 11:10:40 +0000 (+0000) Subject: (quail-choose-completion-string): Store X-Git-Tag: emacs-20.4~1777 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d4e1e6e5a3877adc1b13d47881e6e74b6665c61;p=emacs.git (quail-choose-completion-string): Store completion `choice' in `quail-current-str'; don't insert it. --- diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 6f24ba5202f..f83cd222111 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -1769,14 +1769,14 @@ All possible translations of the current key and whole possible longer keys (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)))