diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-09-03 11:10:40 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-09-03 11:10:40 +0000 |
| commit | 2d4e1e6e5a3877adc1b13d47881e6e74b6665c61 (patch) | |
| tree | 03615afc0f1eb77be23f3b620f82614d74bdce48 /lisp | |
| parent | 3c1f9d660308c972b40e19cbdfffa53694a45eee (diff) | |
| download | emacs-2d4e1e6e5a3877adc1b13d47881e6e74b6665c61.tar.gz emacs-2d4e1e6e5a3877adc1b13d47881e6e74b6665c61.tar.bz2 emacs-2d4e1e6e5a3877adc1b13d47881e6e74b6665c61.zip | |
(quail-choose-completion-string): Store
completion `choice' in `quail-current-str'; don't insert it.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/quail.el | 8 |
1 files changed, 4 insertions, 4 deletions
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))) |