procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(quail-indian-update-preceding-char): Don't mark the variable as frame-local;

Browse source 
it wasn't used as such.
This commit is contained in:
Juanma Barranquero 2007-10-24 11:49:17 +00:00
parent a8d7b1a0a0
commit 92f137df2e
2 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
leim/ChangeLog
View file

@ -1,3 +1,8 @@
2007-10-24 Juanma Barranquero <lekktu@gmail.com>
* quail/indian.el (quail-indian-update-preceding-char):
Don't mark the variable as frame-local; it wasn't used as such.
2007-07-25 Glenn Morris <rgm@gnu.org>
* Relicense all FSF files to GPLv3 or later.
@ -15,7 +20,7 @@
2007-01-30 Kenichi Handa <handa@m17n.org>
* CXTERM-DIC/CCDOSPY.tit, CXTERM-DIC/PY-b5.tit, CXTERM-DIC/SW.tit,
CXTERM-DIC/TONEPY.tit: Add copyright and license notices.
* CXTERM-DIC/TONEPY.tit: Add copyright and license notices.
* MISC-DIC/pinyin.map, MISC-DIC/ziranma.cin: Add copyright and
license notices.
@ -27,8 +32,8 @@
* CXTERM-DIC/README: New file.
* CXTERM-DIC/4Corner.tit, CXTERM-DIC/CCDOSPY.tit,
CXTERM-DIC/PY-b5.tit, CXTERM-DIC/QJ-b5.tit, CXTERM-DIC/QJ.tit,
CXTERM-DIC/SW.tit, CXTERM-DIC/TONEPY.tit: Updated from
* CXTERM-DIC/PY-b5.tit, CXTERM-DIC/QJ-b5.tit, CXTERM-DIC/QJ.tit,
* CXTERM-DIC/SW.tit, CXTERM-DIC/TONEPY.tit: Updated from
X11R6/contrib/programs/cxterm.
* ja-dic/ja-dic.el: Regenerated.

13
leim/quail/indian.el
View file

@ -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