comparison lisp/international/quail.el @ 19519:1c0ecc266e38

(quail-terminate-translation): Doc-string fixed. Set quail-prefix-arg to nil after handling it. (quail-self-insert-command): Set overriding-terminal-local-map to nil when thown for `quail-tag' by value nil.

19518:0f690a5476fe

  (if (overlay-start quail-overlay)
      (delete-region (overlay-start quail-overlay)
		     (overlay-end quail-overlay))))

(defun quail-terminate-translation ()
  "Terminate the translation of the current key.
Optional arg SUPPRESS-INSERT-CHUNK-HOOK if non-nil means don't run hooks
in `input-method-after-insert-chunk-hook' (which see)."
  (let ((start (overlay-start quail-overlay)))
    (if (and start
	     (< start (overlay-end quail-overlay)))
	;; Here we simulate self-insert-command.
	(let ((seq (string-to-sequence

	      last-command-char)
	  (goto-char start)
	  (quail-delete-region)
	  (setq last-command-char (car seq))
	  (self-insert-command (or quail-prefix-arg 1))
	  (setq seq (cdr seq))
	  (while seq
	    (setq last-command-char (car seq))
	    (self-insert-command 1)
	    (setq seq (cdr seq))))))

	(set-buffer quail-guidance-buf)
	(erase-buffer)))
  (setq overriding-terminal-local-map
	(quail-conversion-keymap))
  ;; Run this hook only when the current input method doesn't require
  ;; conversion.  When it requires, the conversoin function should run
  ;; this hook at a proper timing.
  (unless (quail-conversion-keymap)
    (run-hooks 'input-method-after-insert-chunk-hook)))

(defun quail-select-current ()
  "Select the current text shown in Quail translation region."

(defun quail-self-insert-command ()
  "Add the typed character to the key for translation."
  (interactive "*")
  (setq quail-current-key
	(concat quail-current-key (char-to-string last-command-event)))
  (catch 'quail-tag
    (quail-update-translation (quail-translate-key))))

;; Return the actual definition part of Quail map MAP.
(defun quail-map-definition (map)
  (let ((def (car map)))
    (if (and (consp def) (not (vectorp (cdr def))))

19519:1c0ecc266e38

  (if (overlay-start quail-overlay)
      (delete-region (overlay-start quail-overlay)
		     (overlay-end quail-overlay))))

(defun quail-terminate-translation ()
  "Terminate the translation of the current key."
  (let ((start (overlay-start quail-overlay)))
    (if (and start
	     (< start (overlay-end quail-overlay)))
	;; Here we simulate self-insert-command.
	(let ((seq (string-to-sequence

	      last-command-char)
	  (goto-char start)
	  (quail-delete-region)
	  (setq last-command-char (car seq))
	  (self-insert-command (or quail-prefix-arg 1))
	  (setq quail-prefix-arg nil)
	  (setq seq (cdr seq))
	  (while seq
	    (setq last-command-char (car seq))
	    (self-insert-command 1)
	    (setq seq (cdr seq))))))

	(set-buffer quail-guidance-buf)
	(erase-buffer)))
  (setq overriding-terminal-local-map
	(quail-conversion-keymap))
  ;; Run this hook only when the current input method doesn't require
  ;; conversion.  When conversion is required, the conversion function
  ;; should run this hook at a proper timing.
  (unless (quail-conversion-keymap)
    (run-hooks 'input-method-after-insert-chunk-hook)))

(defun quail-select-current ()
  "Select the current text shown in Quail translation region."

(defun quail-self-insert-command ()
  "Add the typed character to the key for translation."
  (interactive "*")
  (setq quail-current-key
	(concat quail-current-key (char-to-string last-command-event)))
  (unless (catch 'quail-tag
	    (quail-update-translation (quail-translate-key))
	    t)
    ;; If someone throws for `quail-tag' by value nil, we exit from
    ;; translation mode.
    (setq overriding-terminal-local-map nil)))

;; Return the actual definition part of Quail map MAP.
(defun quail-map-definition (map)
  (let ((def (car map)))
    (if (and (consp def) (not (vectorp (cdr def))))