Remove prefix "coding-system-" from coding system symbol names.

diff --git a/lisp/international/skkdic-cnv.el b/lisp/international/skkdic-cnv.el
index 64ba8d4c0c28a435d170bf061778daa224423e98..3bf105cee37b938f4bd79f5d993a22227f51e82e 100644 (file)
--- a/lisp/international/skkdic-cnv.el
+++ b/lisp/international/skkdic-cnv.el
@@ -47,9 +47,9 @@
 
 ;; To make a generated skkdic.el smaller.
 (make-coding-system
- 'coding-system-iso-2022-7-short
+ 'iso-2022-7-short
  2 ?J
- "Like `coding-system-iso-2022' but no ASCII designation before SPC."
+ "Like `iso-2022-7' but no ASCII designation before SPC."
  '(ascii nil nil nil t t nil t))
 
 (defconst skkdic-jbytes
@@ -418,7 +418,7 @@ the generated \"skkdic.el\" is saved."
       ;; Save the working buffer.
       (set-buffer buf)
       (set-visited-file-name (expand-file-name skkdic-filename dirname) t)
-      (set-buffer-file-coding-system 'coding-system-iso-2022-7-short)
+      (set-buffer-file-coding-system 'iso-2022-7-short)
       (save-buffer 0))
     (kill-buffer skkbuf)
     (switch-to-buffer buf)))

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index e7598512cd5e900c965031146b41d98a6c3f394f..887a8ef4f4502065e6719273466e439cb8c6cc5d 100644 (file)
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -59,10 +59,10 @@
 ;; List of values of key "ENCODE:" and the corresponding Emacs'
 ;; coding-system and language environment name.
 (defvar tit-encode-list
-  '(("GB" coding-system-euc-china "Chinese-GB")
-    ("BIG5" coding-system-big5 "Chinese-BIG5")
-    ("JIS" coding-system-euc-japan "Japanese")
-    ("KS" coding-system-euc-korea "Korean")))
+  '(("GB" euc-china "Chinese-GB")
+    ("BIG5" cn-big5 "Chinese-BIG5")
+    ("JIS" euc-japan "Japanese")
+    ("KS" euc-kk "Korean")))
 
 ;; Return a value of the key in the current line.
 (defsubst tit-read-key-value ()
@@ -310,7 +310,7 @@ the generated Quail package is saved."
       (let ((coding-system-for-read 'no-conversion))
        (insert-file-contents (expand-file-name filename)))
       (set-visited-file-name (tit-make-quail-package-name filename dirname) t)
-      (set-buffer-file-coding-system 'coding-system-iso-2022-7)
+      (set-buffer-file-coding-system 'iso-2022-7)
 
       ;; Decode the buffer contents from the encoding specified by a
       ;; value of the key "ENCODE:".

diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index 3bba3bff4eb210649cb1af699b655ea9e0212917..c92aad65b3a1aa7ead05336e5cc366eaefdb5ade 100644 (file)
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -61,7 +61,7 @@ Return the length of resulting text."
     (save-restriction
       (narrow-to-region beg end)
 
-      ;; We, at first, convert HZ/ZW to `coding-system-iso-2022-7',
+      ;; We, at first, convert HZ/ZW to `iso-2022-7',
       ;; then decode it.
 
       ;; "~\n" -> "\n"
@@ -76,13 +76,13 @@ Return the length of resulting text."
       (let ((chinese-found nil))
        (while (re-search-forward hz/zw-start-gb nil t)
          (if (= (char-after (match-beginning 0)) ?z)
-             ;; ZW -> coding-system-iso-20227-7
+             ;; ZW -> iso-20227-7
              (progn
                (delete-char -2)
                (insert iso2022-gb-designation)
                (end-of-line)
                (insert iso2022-ascii-designation))
-           ;; HZ -> coding-system-iso-20227-7
+           ;; HZ -> iso-20227-7
            (delete-char -2)
            (insert iso2022-gb-designation)
            (let ((pos (save-excursion (end-of-line) (point))))
@@ -97,8 +97,7 @@ Return the length of resulting text."
                  ;; If any, we had better decode them also.
                  (goto-char (point-min))
                  (re-search-forward "[\240-\377]" nil t))) 
-           (decode-coding-region (point-min) (point-max)
-                                 'coding-system-euc-china)))
+           (decode-coding-region (point-min) (point-max) 'euc-china)))
 
       ;; "~~" -> "~"
       (goto-char (point-min))
@@ -130,7 +129,7 @@ Return the length of resulting text."
          (let ((enable-multibyte-characters nil)
                pos)
            (goto-char (setq pos (match-beginning 0)))
-           (encode-coding-region pos (point-max) 'coding-system-iso-2022-7)
+           (encode-coding-region pos (point-max) 'iso-2022-7)
            (goto-char pos)
            (while (search-forward iso2022-gb-designation nil t)
              (delete-char -3)

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 616a3aff5c2085e220205ee15fde9082b36191a4..7c27d7ba0377e9102933426306c623fb356b63bf 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -29,31 +29,31 @@
 ;;; Code:
 
 (make-coding-system
- 'coding-system-iso-8859-1 2 ?X
+ 'iso-8859-1 2 ?X
  "Coding-system used in X as Compound Text Encoding."
  '((ascii t) (latin-iso8859-1 t) nil nil
    nil ascii-eol ascii-cntl))
 
 ;; CTEXT is an alias for ISO-8859-1
-(put 'coding-system-ctext 'coding-system 'coding-system-iso-8859-1)
+(define-coding-system-alias 'iso-8859-1 'ctext)
 
 (make-coding-system
- 'coding-system-iso-8859-2 2 ?2 "MIME ISO-8859-2"
+ 'iso-8859-2 2 ?2 "MIME ISO-8859-2"
  '((ascii t) (latin-iso8859-2 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
 (make-coding-system
- 'coding-system-iso-8859-3 2 ?3 "MIME ISO-8859-3"
+ 'iso-8859-3 2 ?3 "MIME ISO-8859-3"
  '((ascii t) (latin-iso8859-3 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
 (make-coding-system
- 'coding-system-iso-8859-4 2 ?4 "MIME ISO-8859-4"
+ 'iso-8859-4 2 ?4 "MIME ISO-8859-4"
  '((ascii t) (latin-iso8859-4 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
 (make-coding-system
- 'coding-system-iso-8859-9 2 ?9 "MIME ISO-8859-9"
+ 'iso-8859-9 2 ?9 "MIME ISO-8859-9"
  '((ascii t) (latin-iso8859-9 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
@@ -69,16 +69,16 @@
                       '("quail-latin-5" quail-use-package "quail/latin"))
 
 (defun setup-european-environment ()
-  (setq coding-category-iso-8-1 'coding-system-iso-8859-1)
+  (setq coding-category-iso-8-1 'iso-8859-1)
 
   (set-coding-priority
    '(coding-category-iso-7
      coding-category-iso-8-1
      coding-category-iso-8-2))
 
-  (setq-default buffer-file-coding-system 'coding-system-iso-8859-1)
-  (set-terminal-coding-system 'coding-system-iso-8859-1)
-  (set-keyboard-coding-system 'coding-system-iso-8859-1)
+  (setq-default buffer-file-coding-system 'iso-8859-1)
+  (set-terminal-coding-system 'iso-8859-1)
+  (set-keyboard-coding-system 'iso-8859-1)
 
   (setq default-input-method '("European" . "quail-latin-1"))
   )
@@ -94,11 +94,8 @@
  "European" '((setup-function . setup-european-environment)
              (charset . (ascii latin-iso8859-1 latin-iso8859-2
                           latin-iso8859-3 latin-iso8859-4 latin-iso8859-9))
-             (coding-system . (coding-system-iso-8859-1
-                               coding-system-iso-8859-2
-                               coding-system-iso-8859-3
-                               coding-system-iso-8859-4
-                               coding-system-iso-8859-9))
+             (coding-system . (iso-8859-1 iso-8859-2 iso-8859-3
+                               iso-8859-4 iso-8859-9))
              (documentation . t)
              (sample-text
               . "Hello, Hej, Tere, Hei, Bonjour, Gr\e,A|_\e(B Gott, Ciao, \e,A!\e(BHola!")))

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index f707ecc8a5dc78950ca2ce528d36c191662faa7b..c922258b1a6a71d74bdeeab46dc5ef31d66d69a1 100644 (file)
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -29,7 +29,7 @@
 ;;; Code:
 
 (make-coding-system
- 'coding-system-iso-8859-7 2 ?7 "MIME ISO-8859-7"
+ 'iso-8859-7 2 ?7 "MIME ISO-8859-7"
  '((ascii t) (greek-iso8859-7 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil))
 
@@ -37,15 +37,15 @@
  "Greek" '("quail-greek" quail-use-package "quail/greek"))
 
 (defun setup-greek-environment ()
-  (setq coding-category-iso-8-1 'coding-system-iso-8859-7)
+  (setq coding-category-iso-8-1 'iso-8859-7)
 
   (set-coding-priority
    '(coding-category-iso-7
      coding-category-iso-8-1))
 
-  (setq-default buffer-file-coding-system 'coding-system-iso-8859-7)
-  (set-terminal-coding-system 'coding-system-iso-8859-7)
-  (set-keyboard-coding-system 'coding-system-iso-8859-7)
+  (setq-default buffer-file-coding-system 'iso-8859-7)
+  (set-terminal-coding-system 'iso-8859-7)
+  (set-keyboard-coding-system 'iso-8859-7)
 
   (setq default-input-method '("Greek" . "quail-greek"))
   )
@@ -53,7 +53,7 @@
 (set-language-info-alist
  "Greek" '((setup-function . setup-greek-environment)
           (charset . (greek-iso8859-7))
-          (coding-system . (coding-system-iso-8859-7))
+          (coding-system . (iso-8859-7))
           (documentation . t)
           (sample-text . "Greek (\e,FGkk]mija\e(B)       \e,FCei\\e(B \e,Fsar\e(B")))
 

diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 42ed80c8ea6b6b96b94ac2c8a0e6cc11948d264f..7ba222f1567f41c48d784fb8d33512fb558f1012 100644 (file)
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -29,7 +29,7 @@
 ;;; Code:
 
 (make-coding-system
- 'coding-system-iso-8859-8 2 ?8 "MIME ISO-8859-8"
+ 'iso-8859-8 2 ?8 "MIME ISO-8859-8"
  '((ascii t) (hebrew-iso8859-8 t) nil nil
    nil ascii-eol ascii-cntl nil nil nil nil nil t))
 
@@ -37,16 +37,16 @@
  "Hebrew" '("quail-hebrew" quail-use-package "quail/hebrew"))
 
 (defun setup-hebrew-environment ()
-  (setq coding-category-iso-8-1 'coding-system-iso-8859-8)
+  (setq coding-category-iso-8-1 'iso-8859-8)
 
   (set-coding-priority
    '(coding-category-iso-7
      coding-category-iso-8-1
      coding-category-iso-8-2))
 
-  (setq-default buffer-file-coding-system 'coding-category-iso-8-2)
-  (set-terminal-coding-system 'coding-category-iso-8-2)
-  (set-keyboard-coding-system 'coding-category-iso-8-2)
+  (setq-default buffer-file-coding-system 'iso-8859-8)
+  (set-terminal-coding-system 'iso-8859-8)
+  (set-keyboard-coding-system 'iso-8859-8)
 
   (setq default-input-method '("Hebrew" . "quail-hebrew"))
   )
@@ -54,7 +54,7 @@
 (set-language-info-alist
  "Hebrew" '((setup-function . setup-hebrew-environment)
            (charset . (hebrew-iso8859-8))
-           (coding-system . (coding-system-iso-8859-8))
+           (coding-system . (iso-8859-8))
            (documentation . "Right-to-left writing is Not yet supported")
            (sample-text . "Hebrew      \e,Hylem\e(B")))
 

diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index 35942906ca8b2c81d26951a3c5234da5f02575a3..2aec2cefc74c85adbc543980f10dad3b55249435 100644 (file)
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -29,20 +29,22 @@
 ;;; Code:
 
 (make-coding-system
- 'coding-system-euc-korea 2 ?K
+ 'euc-kr 2 ?K
  "Coding-system of Korean EUC (Extended Unix Code)."
  '((ascii t) korean-ksc5601 nil nil
    nil ascii-eol ascii-cntl))
 
-;; EUC-KR is an alias for EUC-KOREA.
-(put 'coding-system-euc-kr 'coding-system 'coding-system-euc-korea)
+(define-coding-system-alias 'euc-kr 'euc-korea)
 
 (make-coding-system
- 'coding-system-iso-2022-kr 2 ?k
- "Coding-System used for communication with mail in Korea."
+ 'iso-2022-kr 2 ?k
+ "MIME ISO-2022-KR"
  '(ascii (nil korean-ksc5601) nil nil
-        nil ascii-eol ascii-cntl seven locking-shift))
+        nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil
+        'designation-bol))
 
+(register-input-method
+ "Korean" '("hanterm" encoded-kbd-select-terminal euc-kr))
 (register-input-method
  "Korean" '("quail-hangul" quail-use-package "quail/hangul"))
 (register-input-method
@@ -55,14 +57,14 @@
  "Korean" '("quail-hanja-jis" quail-use-package "quail/hanja-jis"))
 
 (defun setup-korean-environment ()
-  (setq coding-category-iso-8-2 'coding-system-euc-korea)
+  (setq coding-category-iso-8-2 'euc-kr)
 
   (set-coding-priority
    '(coding-category-iso-7
      coding-category-iso-8-2
      coding-category-iso-8-1))
 
-  (setq-default buffer-file-coding-system 'coding-system-euc-korea)
+  (setq-default buffer-file-coding-system 'euc-kr)
 
   (setq default-input-method '("Korean" . "quail-hangul"))
   )
@@ -71,8 +73,7 @@
  "Korean" '((setup-function . setup-korean-environment)
            (tutorial . "TUTORIAL.kr")
            (charset . (korean-ksc5601))
-           (coding-system . (coding-system-euc-korea
-                             coding-system-iso-2022-kr))
+           (coding-system . (euc-kr iso-2022-kr))
            (documentation . t)
            (sample-text . "Hangul (\e$(CGQ1[\e(B)        \e$(C>H3gGO<<?d\e(B, \e$(C>H3gGO=J4O1n\e(B")))
 

diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index f9c15cd89b22897aa049c0e39080a5e62e380702..c279c248141fa7368eb057947b35604afa971c98 100644 (file)
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -29,26 +29,26 @@
 ;;; Code:
 
 (make-coding-system
- 'coding-system-tis620 2 ?T
+ 'th-tis620 2 ?T
  "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)."
  '((ascii t) (thai-tis620 t) nil nil
    nil ascii-eol))
-(put 'coding-system-tis620 'post-read-conversion
-     'thai-post-read-conversion)
-(put 'coding-system-tis620 'pre-write-conversion
-     'thai-pre-write-conversion)
+(put 'th-tis620 'post-read-conversion 'thai-post-read-conversion)
+(put 'th-tis620 'pre-write-conversion 'thai-pre-write-conversion)
+
+(define-coding-system-alias 'th-tis620 'tis620)
 
 (register-input-method
  "Thai" '("quail-thai" quail-use-package "quail/thai"))
 
 (defun setup-thai-environment ()
-  (setq coding-category-iso-8-1 'coding-system-tis620)
+  (setq coding-category-iso-8-1 'th-tis620)
 
   (set-coding-priority
    '(coding-category-iso-7
      coding-category-iso-8-1))
 
-  (setq-default buffer-file-coding-system 'coding-system-tis620)
+  (setq-default buffer-file-coding-system 'th-tis620)
 
   (setq default-input-method '("Thai" . "quail-thai"))
   )
@@ -57,7 +57,7 @@
  "Thai" '((tutorial . "TUTORIAL.th")
          (setup-function . setup-thai-environment)
          (charset . (thai-tis620))
-         (coding-systemm . (coding-system-tis620))
+         (coding-system . (th-tis620))
          (documentation . t)
          (sample-text . "Thai (\e,T@RIRd7B\e(B)          \e,TJ\e0GQ\e1J\e04U\e1$\e0CQ\e1:\e(B, \e,TJ\e0GQ\e1J\e04U\e1\e0$h\e1P\e(B")))
 

diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index ba9a092f23d53cadf95585f65c0c218dc7614989..e8bd15ea9253c6fe551901e7dd8afb6cd15fd595 100644 (file)
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -201,21 +201,21 @@ Both tables are indexed by the position code of Vietnamese characters.")
 
 
 (make-coding-system
- 'coding-system-viscii 4 ?V
+ 'viscii 4 ?V
  "Coding-system used for VISCII 1.1."
  (cons ccl-decode-viscii ccl-encode-viscii))
 
 (make-coding-system
- 'coding-system-vscii 4 ?V
+ 'vscii 4 ?V
  "Coding-system used for VSCII-1."
  (cons ccl-decode-vscii ccl-encode-vscii))
 
 (make-coding-system
- 'coding-system-viqr 0 ?v
+ 'viqr 0 ?v
  "Codins-system used for VIQR."
  nil)
-(put 'coding-system-viqr 'post-read-conversion 'viet-decode-viqr-region)
-(put 'coding-system-viqr 'pre-write-conversion 'viet-encode-viqr-region)
+(put 'viqr 'post-read-conversion 'viet-decode-viqr-region)
+(put 'viqr 'pre-write-conversion 'viet-encode-viqr-region)
 
 (setq font-ccl-encoder-alist
       (cons (cons "viscii" ccl-encode-viscii-font) font-ccl-encoder-alist))
@@ -228,16 +228,16 @@ Both tables are indexed by the position code of Vietnamese characters.")
 
 (defun setup-viet-environment ()
   ;; for VISCII users
-  (setq coding-category-binary 'coding-system-viscii)
+  (setq coding-category-binary 'viscii)
 
   ;; for VSCII users
-  ;; (setq coding-category-binary 'coding-system-vscii)
+  ;; (setq coding-category-binary 'vscii)
 
   (set-coding-priority
    '(coding-category-iso-7
      coding-category-binary))
 
-  (setq-default buffer-file-coding-system 'coding-system-viscii)
+  (setq-default buffer-file-coding-system 'viscii)
 
   (setq default-input-method '("Vietnamese" . "quail-viqr"))
   )
@@ -246,9 +246,7 @@ Both tables are indexed by the position code of Vietnamese characters.")
  "Vietnamese" '((setup-function . setup-viet-environment)
                (charset . (vietnamese-viscii-lower
                            vietnamese-viscii-upper))
-               (coding-system . (coding-system-viscii
-                                 coding-system-vscii
-                                 coding-system-viqr))
+               (coding-system . (viscii vscii viqr))
                (documentation . t)
                (sample-text . "Vietnamese (Ti\e,1*\e(Bng Vi\e,1.\e(Bt)     Ch\e,1`\e(Bo b\e,1U\e(Bn")))