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

9 files changed, 65 insertions, 70 deletions

diff --git a/lisp/international/skkdic-cnv.el b/lisp/international/skkdic-cnv.el
index 64ba8d4c0c2..3bf105cee37 100644
--- 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 e7598512cd5..887a8ef4f45 100644
--- 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 3bba3bff4eb..c92aad65b3a 100644
--- 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 616a3aff5c2..7c27d7ba037 100644
--- 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,A|_(B Gott, Ciao, ,A!(BHola!")))
diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index f707ecc8a5d..c922258b1a6 100644
--- 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 (,FGkk]mija(B)       ,FCei\(B ,Fsar(B")))
 
diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 42ed80c8ea6..7ba222f1567 100644
--- 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      ,Hylem(B")))
 
diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index 35942906ca8..2aec2cefc74 100644
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -29,21 +29,23 @@
 ;;; 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
  "Korean" '("quail-hangul3" quail-use-package "quail/hangul3"))
@@ -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 ($(CGQ1[(B)        $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B")))
 
diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index f9c15cd89b2..c279c248141 100644
--- 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 (,T@RIRd7B(B)          ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")))
 
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index ba9a092f23d..e8bd15ea925 100644
--- 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,1*(Bng Vi,1.(Bt)     Ch,1`(Bo b,1U(Bn")))