changeset 56562:9274a15c1400

(utf-translate-cjk-mode): Doc fix.
author Luc Teirlinck <teirllm@auburn.edu>
date Sat, 31 Jul 2004 03:29:07 +0000
parents 9e3e4cc5d4ad
children 2587479c8e25
files lisp/international/utf-8.el
diffstat 1 files changed, 12 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/utf-8.el	Fri Jul 30 12:05:32 2004 +0000
+++ b/lisp/international/utf-8.el	Sat Jul 31 03:29:07 2004 +0000
@@ -273,7 +273,7 @@
       (utf-translate-cjk-load-tables))
   (gethash code-point
 	   (get 'utf-subst-table-for-decode 'translation-hash-table)))
-  
+
 
 (defun utf-lookup-subst-table-for-encode (char)
   (if (and utf-translate-cjk-mode
@@ -282,9 +282,11 @@
       (utf-translate-cjk-load-tables))
   (gethash char
 	   (get 'utf-subst-table-for-encode 'translation-hash-table)))
-  
+
 (define-minor-mode utf-translate-cjk-mode
-  "Whether the UTF based coding systems should decode/encode CJK characters.
+  "Toggle whether UTF based coding systems de/encode CJK characters.
+If ARG is an integer, enable if ARG is positive and disable if
+zero or negative.  This is a minor mode.
 Enabling this allows the coding systems mule-utf-8,
 mule-utf-16le and mule-utf-16be to encode characters in the charsets
 `korean-ksc5601', `chinese-gb2312', `chinese-big5-1',
@@ -296,9 +298,10 @@
 turned on: ksc5601 for Korean, gb2312 for Chinese-GB, big5 for
 Chinese-Big5 and jisx for other environments.
 
-This option is on by default.  If you are not interested in CJK
+This mode is on by default.  If you are not interested in CJK
 characters and want to avoid some overhead on encoding/decoding
-by the above coding systems, you can customize this option to nil."
+by the above coding systems, you can customize the user option
+`utf-translate-cjk-mode' to nil."
   :init-value t
   :version "21.4"
   :type 'boolean
@@ -605,7 +608,7 @@
   ;; UTF-8 decoder generates an UTF-8 sequence represented by a
   ;; sequence eight-bit-control/graphic chars for an untranslatable
   ;; character and an invalid byte.
-  ;; 
+  ;;
   ;; This CCL parses that sequence (the first byte is already in r1),
   ;; writes out the original bytes of that sequence, and sets r5 to
   ;; -1.
@@ -624,7 +627,7 @@
      (read-multibyte-character r5 r6)
      (r0 = (r5 != ,(charset-id 'eight-bit-control)))
      (if ((r5 != ,(charset-id 'eight-bit-graphic)) & r0)
-	 ((write r1)			; invalid UTF-8 
+	 ((write r1)			; invalid UTF-8
 	  (r1 = -1)
 	  (end)))
 
@@ -641,7 +644,7 @@
      (r1 = -1)
      ;; Read the 3rd byte.
      (read-multibyte-character r5 r6)
-     (r0 = (r5 != ,(charset-id 'eight-bit-control)))	       
+     (r0 = (r5 != ,(charset-id 'eight-bit-control)))
      (if ((r5 != ,(charset-id 'eight-bit-graphic)) & r0)
 	 (end))				; invalid UTF-8
      (write r6)
@@ -651,7 +654,7 @@
 	  (end)))
      ;; Read the 4th byte.
      (read-multibyte-character r5 r6)
-     (r0 = (r5 != ,(charset-id 'eight-bit-control)))	       
+     (r0 = (r5 != ,(charset-id 'eight-bit-control)))
      (if ((r5 != ,(charset-id 'eight-bit-graphic)) & r0)
 	 (end))			; invalid UTF-8
      ;; 4-byte sequence for an untranslated character.