diff options
author | Juanma Barranquero <[email protected]> | 2007-10-24 11:49:17 +0000 |
---|---|---|
committer | Juanma Barranquero <[email protected]> | 2007-10-24 11:49:17 +0000 |
commit | 92f137df2e102e42eab7bf3e0dba5c86bb8371da (patch) | |
tree | 6f45bc591a979247926ba3084e509592225f1e65 /leim/quail | |
parent | a8d7b1a0a03e2faaa4e8fb8e2ddf4ece4cb9aee5 (diff) |
(quail-indian-update-preceding-char): Don't mark the variable as frame-local;
it wasn't used as such.
Diffstat (limited to 'leim/quail')
-rw-r--r-- | leim/quail/indian.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/leim/quail/indian.el b/leim/quail/indian.el index e8e48fc606..90f84c2df0 100644 --- a/leim/quail/indian.el +++ b/leim/quail/indian.el @@ -47,13 +47,12 @@ nil))) (defvar quail-indian-update-preceding-char nil) -(make-variable-frame-local 'quail-indian-update-preceding-char) ;; Input value :: ;; CONTROL-FLAG is integer `n' ;; quail-current-key :: keyboard input. ;; Only first `n' can be translated. -;; quail-current-str :: corresonding string. +;; quail-current-str :: corresonding string. ;; jobs :: (1) put last (len-n) char to unrread-command-event. ;; (2) put translated string to quail-current-str. ;; @@ -62,8 +61,8 @@ ;; quail-current-str :: corresponding string. ;; jobs :: (1) put modified translated string to quail-current-str. ;; -;; When non-nil value is returned from quail-translation-update-function, -;; the quail-current-str is split to characters and put into event queue, +;; When non-nil value is returned from quail-translation-update-function, +;; the quail-current-str is split to characters and put into event queue, ;; with `compose-last-char' event with composition info at the end. (defun quail-indian-update-translation (control-flag) @@ -79,7 +78,7 @@ ;; Check the preceding character of the quail region. If the ;; preceding character can be composed with quail-current-str, then ;; grab that preceding character into the quail-current-str and - ;; remove that char from the region. + ;; remove that char from the region. (let* (prec-char-position composition-regexp prec-char-str candidate-str match-pos match-end) (when (and quail-current-str @@ -103,9 +102,9 @@ (setq quail-indian-update-preceding-char prec-char-str) (delete-region prec-char-position (overlay-start quail-overlay)))) - (setq quail-current-str + (setq quail-current-str (indian-compose-string - (concat quail-indian-update-preceding-char + (concat quail-indian-update-preceding-char quail-current-str))) (if (numberp control-flag) (setq unread-command-events |