Mercurial > emacs

comparison lisp/international/quail.el @ 19933:e135dd522e64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-terminate-translation): If quail-overlay is not an overlay, don't mess with it.
author Richard M. Stallman <rms@gnu.org>
date Mon, 15 Sep 1997 06:32:36 +0000
parents 3ff7106cf88f
children 486a8046bbf5
comparison
equal deleted inserted replaced
19932:2dce5db7cf82 19933:e135dd522e64
1033 (delete-region (overlay-start quail-overlay) 1033 (delete-region (overlay-start quail-overlay)
1034 (overlay-end quail-overlay)))) 1034 (overlay-end quail-overlay))))
1035 1035
1036 (defun quail-terminate-translation () 1036 (defun quail-terminate-translation ()
1037 "Terminate the translation of the current key." 1037 "Terminate the translation of the current key."
1038 (let ((start (overlay-start quail-overlay))) 1038 (when (overlayp quail-overlay)
1039 (if (and start 1039 (let ((start (overlay-start quail-overlay)))
1040 (< start (overlay-end quail-overlay))) 1040 (if (and start
1041 ;; Here we simulate self-insert-command. 1041 (< start (overlay-end quail-overlay)))
1042 (let ((seq (string-to-sequence 1042 ;; Here we simulate self-insert-command.
1043 (buffer-substring (overlay-start quail-overlay) 1043 (let ((seq (string-to-sequence
1044 (overlay-end quail-overlay)) 1044 (buffer-substring (overlay-start quail-overlay)
1045 'list)) 1045 (overlay-end quail-overlay))
1046 last-command-char) 1046 'list))
1047 (goto-char start) 1047 last-command-char)
1048 (quail-delete-region) 1048 (goto-char start)
1049 (setq last-command-char (car seq)) 1049 (quail-delete-region)
1050 (self-insert-command (or quail-prefix-arg 1))
1051 (setq quail-prefix-arg nil)
1052 (setq seq (cdr seq))
1053 (while seq
1054 (setq last-command-char (car seq)) 1050 (setq last-command-char (car seq))
1055 (self-insert-command 1) 1051 (self-insert-command (or quail-prefix-arg 1))
1056 (setq seq (cdr seq)))))) 1052 (setq quail-prefix-arg nil)
1057 (delete-overlay quail-overlay) 1053 (setq seq (cdr seq))
1054 (while seq
1055 (setq last-command-char (car seq))
1056 (self-insert-command 1)
1057 (setq seq (cdr seq))))))
1058 (delete-overlay quail-overlay))
1058 (if (buffer-live-p quail-guidance-buf) 1059 (if (buffer-live-p quail-guidance-buf)
1059 (save-excursion 1060 (save-excursion
1060 (set-buffer quail-guidance-buf) 1061 (set-buffer quail-guidance-buf)
1061 (erase-buffer))) 1062 (erase-buffer)))
1062 (setq overriding-terminal-local-map 1063 (setq overriding-terminal-local-map