mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/leim/quail/sisheng.el (sisheng-list): Don't bother with-case-table.

Browse source 
* lisp/eshell/em-smart.el (eshell-smart-scroll-window): Use
with-selected-window.
This commit is contained in:
Stefan Monnier 2014-07-08 15:15:28 -04:00
parent dee89b6708
commit 78478ff636
7 changed files with 74 additions and 69 deletions
Download patch file Download diff file Expand all files Collapse all files

53
lisp/leim/quail/sisheng.el
View file

@ -250,39 +250,38 @@ Example: nve5 -> nüe
;; Call quail-make-sisheng-rules for all syllables in sisheng-syllable-table.
;;
(let (sisheng-list)
(with-case-table (standard-case-table) ;FIXME: Why?
(dolist (syllable sisheng-syllable-table)
(setq sisheng-list
(append (quail-make-sisheng-rules syllable)
sisheng-list)))
(dolist (syllable sisheng-syllable-table)
(setq sisheng-list
(append (quail-make-sisheng-rules syllable)
sisheng-list)))
(dolist (syllable sisheng-syllable-table)
(setq sisheng-list
(append (quail-make-sisheng-rules (upcase-initials syllable))
sisheng-list)))
(dolist (syllable sisheng-syllable-table)
(setq sisheng-list
(append (quail-make-sisheng-rules (upcase-initials syllable))
sisheng-list)))
(dolist (syllable sisheng-syllable-table)
(setq sisheng-list
(append (quail-make-sisheng-rules (upcase syllable))
sisheng-list)))
(dolist (syllable sisheng-syllable-table)
(setq sisheng-list
(append (quail-make-sisheng-rules (upcase syllable))
sisheng-list)))
(eval `(quail-define-rules
,@sisheng-list
(eval `(quail-define-rules
,@sisheng-list
("lv5" ["lü"])
("lve5" ["lüe"])
("nv5" ["nü"])
("nve5" ["nüe"])
("lv5" ["lü"])
("lve5" ["lüe"])
("nv5" ["nü"])
("nve5" ["nüe"])
("Lv5" ["Lü"])
("Lve5" ["Lüe"])
("Nv5" ["Nü"])
("Nve5" ["Nüe"])
("Lv5" ["Lü"])
("Lve5" ["Lüe"])
("Nv5" ["Nü"])
("Nve5" ["Nüe"])
("LV5" ["LÜ"])
("LVE5" ["LÜE"])
("NV5" ["NÜ"])
("NVE5" ["NÜE"])))))
("LV5" ["LÜ"])
("LVE5" ["LÜE"])
("NV5" ["NÜ"])
("NVE5" ["NÜE"]))))
;; Local Variables:
;; coding: utf-8