comparison lisp/international/quail.el @ 19327:70e5d1211d98

(quail-start-translation): Use an explicit loop, not recursive edit. (quail-suppress-conversion): Doc fix.

19326:14681d10a973

      ;; Whole text in conversion area was deleted.  Let's exit from
      ;; the recursive edit.
      (throw 'exit nil)))

(defvar quail-suppress-conversion nil
  "If non-nil, suppress converting facility of the current Quail package.")

;; If set to non-nil, exit conversion mode before starting new translation.
(defvar quail-exit-conversion-mode nil)

(defvar quail-prefix-arg nil)

	(quail-setup-overlays)
	(if (catch 'quail-tag
	      (if (and (not quail-suppress-conversion)
		       (quail-conversion-keymap))
		  ;; We must start translation in conversion mode.
		  (let ((overriding-local-map (quail-conversion-keymap)))
		    (setq quail-exit-conversion-mode nil)
		    (recursive-edit)
		    (if (and auto-fill-function
			     (> (current-column) (current-fill-column)))
			(run-hooks 'auto-fill-function)))
		(let ((overriding-local-map (quail-translation-keymap)))
		  (setq quail-current-key "")
		  (recursive-edit)))
	      (if (prog1 (< (overlay-start quail-conv-overlay)
			    (overlay-end quail-conv-overlay))
		    (delete-overlay quail-conv-overlay))
		  (run-hooks 'input-method-after-insert-chunk-hook))
	      nil)
	    ;; Someone has thrown a tag with value t, which means
	    ;; we should turn Quail mode off.
	    (quail-mode -1)))
    ;; Since the typed character doesn't start any translation, handle
    ;; it out of Quail mode.  We come back to Quail mode later because
    ;; function `quail-toggle-mode-temporarily' is in
    ;; `post-command-hook'.
    (add-hook 'post-command-hook 'quail-toggle-mode-temporarily nil t)))

19327:70e5d1211d98

      ;; Whole text in conversion area was deleted.  Let's exit from
      ;; the recursive edit.
      (throw 'exit nil)))

(defvar quail-suppress-conversion nil
  "If non-nil, suppress conversion facility of the current Quail package.
We distinguish between \"translation\" and \"conversion\" aspects
of an input method.  Translation is the first step, done by Quail itself;
conversion is the second step which changes the translated text into
bettertext.  For instance, the Quail package for Japanese (`quail-jp')
translates Roman text (transliteration of Japanese in Latin alphabets)
to Hiragana text, and then converts the Hiragana into Kanji-and-Kana
mixed text or Katakana text.

If this variable is non-nil, translation still occurs, but not conversion.")

;; If set to non-nil, exit conversion mode before starting new translation.
(defvar quail-exit-conversion-mode nil)

(defvar quail-prefix-arg nil)

	(quail-setup-overlays)
	(if (catch 'quail-tag
	      (if (and (not quail-suppress-conversion)
		       (quail-conversion-keymap))
		  ;; We must start translation in conversion mode.
		  (let ((overriding-terminal-local-map (quail-conversion-keymap)))
		    (setq quail-exit-conversion-mode nil)
		    (catch 'exit
		      (while t
			(let* ((key (read-key-sequence nil))
			       (definition (lookup-key overriding-terminal-local-map key t)))
			  (setq last-command-event (aref key 0))
			  (setq prefix-arg nil)
			  (if definition (call-interactively definition)))))
		    (if (and auto-fill-function
			     (> (current-column) (current-fill-column)))
			(run-hooks 'auto-fill-function)))
		(let ((overriding-terminal-local-map (quail-translation-keymap)))
		  (setq quail-current-key "")
		  (catch 'exit
		    (while t
		      (let* ((key (read-key-sequence nil))
			     (definition (lookup-key overriding-terminal-local-map key t)))
			(setq last-command-event (aref key 0))
			(setq prefix-arg nil)
			(if definition (call-interactively definition)))))))
	      (if (prog1 (< (overlay-start quail-conv-overlay)
			    (overlay-end quail-conv-overlay))
		    (delete-overlay quail-conv-overlay))
		  (run-hooks 'input-method-after-insert-chunk-hook))
	      nil)
	    ;; Someone has thrown a tag with value t, which means
	    ;; we should turn Quail mode off.
	    (quail-mode -1))
	(message ""))
    ;; Since the typed character doesn't start any translation, handle
    ;; it out of Quail mode.  We come back to Quail mode later because
    ;; function `quail-toggle-mode-temporarily' is in
    ;; `post-command-hook'.
    (add-hook 'post-command-hook 'quail-toggle-mode-temporarily nil t)))