]> git.eshelyaron.com Git - emacs.git/commitdiff
In setup-LANGUAGE-environment functions,
authorKenichi Handa <handa@m17n.org>
Thu, 22 Jan 1998 01:45:51 +0000 (01:45 +0000)
committerKenichi Handa <handa@m17n.org>
Thu, 22 Jan 1998 01:45:51 +0000 (01:45 +0000)
call set-language-environment-coding-systems.

lisp/language/china-util.el
lisp/language/japan-util.el
lisp/language/korea-util.el
lisp/language/tibet-util.el
lisp/language/viet-util.el

index 4942a064b2449720eb6fc20be29fbc6deff68a2c..e70afa9b908248d386b0e1307d626383955cd347 100644 (file)
   "Setup multilingual environment (MULE) for Chinese GB2312 users."
   (interactive)
   (setup-english-environment)
-
-  (set-default-coding-systems 'chinese-iso-8bit)
-  (setq coding-category-iso-8-2 'chinese-iso-8bit)
-  (setq coding-category-iso-7-else 'chinese-iso-7bit)
-  (setq coding-category-big5 'chinese-big5)
-
-  (set-coding-priority
-   '(coding-category-iso-7
-     coding-category-iso-7-else
-     coding-category-iso-8-2
-     coding-category-big5
-     coding-category-iso-8-1
-     coding-category-emacs-mule
-     coding-category-iso-8-else))
-
-  (setq-default buffer-file-coding-system 'chinese-iso-8bit)
-  (setq default-terminal-coding-system 'chinese-iso-8bit)
-  (setq default-keyboard-coding-system 'chinese-iso-8bit)
-
+  (set-language-environment-coding-systems "Chinese-GB")
   (setq default-input-method  "chinese-py-punct"))
 
 ;;;###autoload
   "Setup multilingual environment (MULE) for Chinese Big5 users."
   (interactive)
   (setup-english-environment)
-
-  (set-default-coding-systems 'chinese-big5)
-  (setq coding-category-iso-8-2 'chinese-big5)
-  (setq coding-category-iso-7-else 'chinese-iso-7bit)
-  (setq coding-category-big5 'chinese-big5)
-
-  (set-coding-priority
-   '(coding-category-iso-7
-     coding-category-iso-7-else
-     coding-category-big5
-     coding-category-iso-8-2
-     coding-category-emacs-mule
-     coding-category-iso-8-else))
-
-  (setq-default buffer-file-coding-system 'chinese-big5)
-  (setq default-terminal-coding-system 'chinese-big5)
-  (setq default-keyboard-coding-system 'chinese-big5)
-
+  (set-language-environment-coding-systems "Chinese-BIG5")
   (setq default-input-method "chinese-py-punct-b5"))
 
 ;;;###autoload
   "Setup multilingual environment (MULE) for Chinese CNS11643 family users."
   (interactive)
   (setup-english-environment)
-
-  (setq coding-category-iso-7-else 'chinese-iso-7bit)
-  (setq coding-category-big5 'chinese-big5)
-  (setq coding-category-iso-8-2 'chinese-big5)
-  (set-default-coding-systems 'chinese-iso-7bit)
-
-  (set-coding-priority
-   '(coding-category-iso-7
-     coding-category-iso-7-else
-     coding-category-iso-8-2
-     coding-category-big5
-     coding-category-iso-7-else))
-
-  (setq-default buffer-file-coding-system 'chinese-iso-7bit)
-  (setq default-terminal-coding-system 'chinese-iso-7bit)
-  (setq default-keyboard-coding-system 'chinese-iso-7bit)
-
+  (set-language-environment-coding-systems "Chinese-CNS")
   (setq default-input-method "chinese-quick-cns"))
 
 ;; Hz/ZW encoding stuffs
 ;; Regexp of ZW sequence to start GB2312.
 (defvar zw-start-gb "^zW")
 ;; Regexp for start of GB2312 in an encoding mixture of HZ and ZW.
-(defvar hz/zw-start-gb (concat hz-gb-designnation "\\|" zw-start-gb))
+(defvar hz/zw-start-gb
+  (concat hz-gb-designnation "\\|" zw-start-gb "\\|[^\0-\177]"))
 
 (defvar decode-hz-line-continuation nil
   "Flag to tell if we should care line continuation convention of Hz.")
 
+(defconst hz-set-msb-table
+  (let ((str (make-string 127 0))
+       (i 0))
+    (while (< i 33)
+      (aset str i i)
+      (setq i (1+ i)))
+    (while (< i 127)
+      (aset str i (+ i 128))
+      (setq i (1+ i)))
+    str))
+
 ;;;###autoload
 (defun decode-hz-region (beg end)
   "Decode HZ/ZW encoded text in the current region.
@@ -134,49 +95,46 @@ Return the length of resulting text."
   (interactive "r")
   (save-excursion
     (save-restriction
-      (narrow-to-region beg end)
-
-      ;; We, at first, convert HZ/ZW to `iso-2022-7bit',
-      ;; then decode it.
-
-      ;; "~\n" -> "\n"
-      (goto-char (point-min))
-      (while (search-forward "~" nil t)
-       (if (= (following-char) ?\n) (delete-char -1))
-       (if (not (eobp)) (forward-char 1)))
-
-      ;; "^zW...\n" -> Chinese GB2312
-      ;; "~{...~}"  -> Chinese GB2312
-      (goto-char (point-min))
-      (let ((chinese-found nil))
+      (let (pos ch)
+       (narrow-to-region beg end)
+
+       ;; We, at first, convert HZ/ZW to `euc-china',
+       ;; then decode it.
+
+       ;; "~\n" -> "\n", "~~" -> "~"
+       (goto-char (point-min))
+       (while (search-forward "~" nil t)
+         (setq ch (following-char))
+         (if (or (= ch ?\n) (= ch ?~)) (delete-char -1)))
+
+       ;; "^zW...\n" -> Chinese GB2312
+       ;; "~{...~}"  -> Chinese GB2312
+       (goto-char (point-min))
+       (setq beg nil)
        (while (re-search-forward hz/zw-start-gb nil t)
-         (if (= (char-after (match-beginning 0)) ?z)
-             ;; ZW -> iso-2022-7bit
-             (progn
-               (delete-char -2)
-               (insert iso2022-gb-designation)
-               (end-of-line)
-               (insert iso2022-ascii-designation))
-           ;; HZ -> iso-2022-7bit
-           (delete-char -2)
-           (insert iso2022-gb-designation)
-           (let ((pos (save-excursion (end-of-line) (point))))
-             (if (search-forward hz-ascii-designnation pos t)
-                 (replace-match iso2022-ascii-designation)
-               (if (not decode-hz-line-continuation)
-                   (insert iso2022-ascii-designation)))))
-         (setq chinese-found t))
-       (if (or chinese-found
-               (let ((enable-multibyte-characters nil))
-                 ;; Here we check if the text contains EUC (China) codes.
-                 ;; 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) 'euc-china)))
-
-      ;; "~~" -> "~"
-      (goto-char (point-min))
-      (while (search-forward "~~" nil t) (delete-char -1))
+         (setq pos (match-beginning 0)
+               ch (char-after pos))
+         ;; Record the first position to start conversion.
+         (or beg (setq beg pos))
+         (end-of-line)
+         (setq end (point))
+         (if (>= ch 128)               ; 8bit GB2312
+             nil
+           (goto-char pos)
+           (delete-char 2)
+           (setq end (- end 2))
+           (if (= ch ?z)                       ; ZW -> euc-china
+               (progn
+                 (translate-region (point) end hz-set-msb-table)
+                 (goto-char end))
+             (if (search-forward hz-ascii-designnation
+                                 (if decode-hz-line-continuation nil end)
+                                 t)
+                 (delete-char -2))
+             (setq end (point))
+             (translate-region pos (point) hz-set-msb-table))))
+       (if beg
+           (decode-coding-region beg end 'euc-china)))
       (- (point-max) (point-min)))))
 
 ;;;###autoload
index 35e6c3f686fcc426a4d39cdb8719348a1062800b..6d257c3f6aa14aaa5f349165192a1d35665e19f2 100644 (file)
   "Setup multilingual environment (MULE) for Japanese."
   (interactive)
   (setup-english-environment)
-
-  (setq coding-category-iso-8-2 'japanese-iso-8bit)
-  (setq coding-category-iso-8-else 'japanese-iso-8bit)
-
-  (set-coding-priority
-   '(coding-category-iso-7
-     coding-category-iso-8-2
-     coding-category-sjis
-     coding-category-iso-8-1
-     coding-category-iso-7-else
-     coding-category-iso-8-else
-     coding-category-emacs-mule))
-
-  (set-default-coding-systems
-   (if (eq system-type 'ms-dos)
-       'japanese-shift-jis
-     'iso-2022-jp))
-
+  (set-language-environment-coding-systems "Japanese")
+  (if (eq system-type 'ms-dos)
+      (prefer-coding-system 'japanese-shift-jis))
   (setq default-input-method "japanese"))
 
 (defconst japanese-kana-table
index c9ca349776d984d1f4b66b87c7812233e0841abf..c2a0310a3c7ba29c1101cc3c1aa9a373348f7cad 100644 (file)
   "Setup multilingual environment (MULE) for Korean."
   (interactive)
   (setup-english-environment)
-  (setq coding-category-iso-8-2 'korean-iso-8bit)
-
-  (set-coding-priority
-   '(coding-category-iso-7
-     coding-category-iso-8-2
-     coding-category-iso-8-1))
-
-  (set-default-coding-systems 'korean-iso-8bit)
+  (set-language-environment-coding-systems "Korean")
 
   (setq default-input-method "korean-hangul")
 
index 4ce4f36bc90e7b95fc64b88416ed62a5ee99391e..bb10564c69972595cdcc58cf1ad2be19c3421901 100644 (file)
 (defun setup-tibetan-environment ()
   (interactive)
   (setup-english-environment)
-  (setq coding-category-iso-8-2 'tibetan)
-
-  (setq-default buffer-file-coding-system 'iso-2022-7bit)
-
+  (set-language-environment-coding-systems "Tibetan")
   (setq default-input-method  "tibetan-wylie"))
 
 ;;; This function makes a transcription string for
index 750f482c4bc8c052974e0341ae661a342747142e..95c54f159c3fea471c856021f1b0fdb68f302c65 100644 (file)
@@ -39,9 +39,7 @@
 (defun setup-vietnamese-environment ()
   "Setup multilingual environment (MULE) for Vietnamese VISCII users."
   (interactive)
-  (setup-8-bit-environment "Vietnamese" nil 'vietnamese-viscii
-                          "vietnamese-viqr")
-  (setq coding-category-raw-text 'vietnamese-viscii))
+  (setup-8-bit-environment "Vietnamese" nil "vietnamese-viqr"))
 
 ;; VIQR is a menmonic encoding specification for Vietnamese.
 ;; It represents diacritical marks by ASCII characters as follows: