Mercurial > emacs
diff lisp/international/utf-8.el @ 59996:aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Change development version from 21.3.50 to 22.0.50.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 09 Feb 2005 15:50:47 +0000 |
parents | 2447136abfc1 |
children | c36561fe0657 |
line wrap: on
line diff
--- a/lisp/international/utf-8.el Tue Feb 08 23:51:31 2005 +0000 +++ b/lisp/international/utf-8.el Wed Feb 09 15:50:47 2005 +0000 @@ -186,7 +186,7 @@ ucs-mule-to-mule-unicode) (define-translation-table 'utf-translation-table-for-encode))) (set-default s v)) - :version "21.4" + :version "22.1" :type 'boolean :group 'mule) @@ -218,7 +218,7 @@ (setq x (- x #x100)) (make-char 'mule-unicode-0100-24ff (+ (/ x 96) 32) (+ (% x 96) 32))) - ((< x #x3400) + ((< x #x3400) (setq x (- x #x2500)) (make-char 'mule-unicode-2500-33ff (+ (/ x 96) 32) (+ (% x 96) 32))) @@ -254,8 +254,8 @@ to #x33FF)))) (if (<= from to) (setq ranges (cons (cons from to) ranges)))) - (mapconcat #'(lambda (x) - (format "%c-%c" + (mapconcat #'(lambda (x) + (format "%c-%c" (funcall decode-char-no-trans (car x)) (funcall decode-char-no-trans (cdr x)))) ranges ""))) @@ -271,7 +271,7 @@ Setting this variable directly does not take effect; use either \\[customize] or the function `utf-translate-cjk-set-unicode-range'." - :version "21.4" + :version "22.1" :type '(repeat (cons integer integer)) :set (lambda (symbol value) (utf-translate-cjk-set-unicode-range value)) @@ -378,7 +378,7 @@ by the above coding systems, you can customize the user option `utf-translate-cjk-mode' to nil." :init-value t - :version "21.4" + :version "22.1" :type 'boolean :group 'mule :global t @@ -941,7 +941,7 @@ (defcustom utf-8-compose-scripts nil "*Non-nil means compose various scripts on decoding utf-8 text." :group 'mule - :version "21.4" + :version "22.1" :type 'boolean) (defun utf-8-post-read-conversion (length)