Update copyright year to 2016

[gnu-emacs] / lisp / leim / quail / sisheng.el

diff --git a/lisp/leim/quail/sisheng.el b/lisp/leim/quail/sisheng.el
index b03ab01980b105180534c172b7659ce302309b5b..2f3a968025ce3e296c66e367b3af123bf8e141b6 100644 (file)
--- a/lisp/leim/quail/sisheng.el
+++ b/lisp/leim/quail/sisheng.el
@@ -1,6 +1,6 @@
 ;;; sisheng.el --- sisheng input method for Chinese pinyin transliteration
 
-;; Copyright (C) 2004-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2004-2016 Free Software Foundation, Inc.
 
 ;; Author: Werner LEMBERG <wl@gnu.org>
 
@@ -249,42 +249,39 @@ 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))
+(let (sisheng-list)
   (dolist (syllable sisheng-syllable-table)
     (setq sisheng-list
-         (append (quail-make-sisheng-rules syllable)
-                 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)))
+          (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)))
+          (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))
+          ,@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