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

(lrt-vowel-table): Change "ow" -> "ao", "am" -> "arm".

Browse source 
(lrt-handle-maa-sakod): Correctly handle the case that quail-current-data
is nil.
(lrt-handle-tone-mark): Fix bug of handling key sequence "hhai" + tone.
This commit is contained in:
Kenichi Handa 1997-07-17 07:20:32 +00:00
parent eb7440a5ec
commit 137c9decc2
1 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
leim/quail/lrt.el
View file

@ -112,8 +112,8 @@
("ea" "(1`WM(B" (?(1`(B 0 ?(1W(B ?(1M(B))
("ai" "(1d(B" (?(1d(B 0))
("ei" "(1c(B" (?(1c(B 0))
("ow" "(1`[R(B" (?(1`(B 0 ?(1[(B ?(1R(B))
("am" "(1S(B" (?(1S(B 0))))
("ao" "(1`[R(B" (?(1`(B 0 ?(1[(B ?(1R(B))
("arm" "(1S(B" (?(1S(B 0))))
;; Maa-sakod is put at the tail.
(defconst lrt-maa-sakod-table
@ -214,9 +214,10 @@
(defun lrt-handle-maa-sakod ()
(interactive)
(if (= (length quail-current-key) 0)
(if (or (= (length quail-current-key) 0)
(not quail-current-data))
(quail-self-insert-command)
(if (not (and quail-current-data (car quail-current-data)))
(if (not (car quail-current-data))
(progn
(setq quail-current-data nil)
(setq unread-command-events
@ -258,15 +259,22 @@
;; have already done it.
(nth 1 quail-current-data)))
(tail tone-mark-pattern)
(double-consonant-tail '(?(1'(B ?(1](B ?(1G(B ?(1E(B ?(1-(B ?(19(B ?(1A(B))
place)
;; Find a place to embed TONE-MARK. It should be after a
;; single or double consonant.
;; single or double consonant and following vowels.
(while (and tail (not place))
(if (and
;; Skip `(1K(B', the first letter of double consonant.
(/= (car tail) ?(1K(B)
(eq (get-char-code-property (car tail) 'phonetic-type)
'consonant))
'consonant)
;; Skip `(1K(B' if it is the first letter of double consonant.
(or (/= (car tail) ?(1K(B)
(not (cdr tail))
(not
(if (= (car (cdr tail)) ?(1\(B)
(and (cdr (cdr tail))
(memq (car (cdr (cdr tail))) double-consonant-tail))
(memq (car (cdr tail)) double-consonant-tail)))))
(progn
(setq place tail)
(setq tail (cdr tail))