Commit 6c2453e0 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/cl-lib.el (current-case-table): Remove setter.

* lisp/leim/quail/sisheng.el (sisheng-list): Use with-case-table.
parent e0af4095
2014-04-12 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-lib.el (current-case-table): Remove setter.
* leim/quail/sisheng.el (sisheng-list): Use with-case-table.
2014-04-12 Eli Zaretskii <eliz@gnu.org>
 
* international/characters.el <standard-case-table>: Add entries
......
......@@ -625,7 +625,6 @@ If ALIST is non-nil, the new pairs are prepended to it."
`(insert (prog1 ,store (erase-buffer))))
(gv-define-simple-setter buffer-substring cl--set-buffer-substring)
(gv-define-simple-setter current-buffer set-buffer)
(gv-define-simple-setter current-case-table set-case-table)
(gv-define-simple-setter current-column move-to-column t)
(gv-define-simple-setter current-global-map use-global-map t)
(gv-define-setter current-input-mode (store)
......
......@@ -249,42 +249,40 @@ Example: nve5 -> nüe
;; Call quail-make-sisheng-rules for all syllables in sisheng-syllable-table.
;;
(let ((case-table-save (current-case-table))
sisheng-list)
(set-case-table (standard-case-table))
(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 syllable))
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"])))
(set-case-table case-table-save))
(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 (upcase-initials 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
("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
......
......@@ -733,7 +733,7 @@ Returns an error if the server cannot be contacted."
(plist-get (cdr result) :capabilities)
"\r\n")))
(let ((name
(with-case-table ascii-case-table
(with-case-table ascii-case-table ;FIXME: Why?
(mapcar (lambda (s) (intern (downcase s)))
(split-string (substring line 4) "[ ]")))))
(when (= (length name) 1)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment