[Emacs-diffs] Changes to emacs/lisp/international/utf-8.el

[Kim F . Storm]

Index: emacs/lisp/international/utf-8.el
diff -c emacs/lisp/international/utf-8.el:1.46 
emacs/lisp/international/utf-8.el:1.47
*** emacs/lisp/international/utf-8.el:1.46      Mon Dec 27 06:11:02 2004
--- emacs/lisp/international/utf-8.el   Wed Feb  9 15:50:37 2005
***************
*** 186,192 ****
                       ucs-mule-to-mule-unicode)
             (define-translation-table 'utf-translation-table-for-encode)))
         (set-default s v))
!   :version "21.4"
    :type 'boolean
    :group 'mule)
  
--- 186,192 ----
                       ucs-mule-to-mule-unicode)
             (define-translation-table 'utf-translation-table-for-encode)))
         (set-default s v))
!   :version "22.1"
    :type 'boolean
    :group 'mule)
  
***************
*** 218,224 ****
                          (setq x (- x #x100))
                          (make-char 'mule-unicode-0100-24ff
                                     (+ (/ x 96) 32) (+ (% x 96) 32)))
!                        ((< x #x3400) 
                          (setq x (- x #x2500))
                          (make-char 'mule-unicode-2500-33ff
                                     (+ (/ x 96) 32) (+ (% x 96) 32)))
--- 218,224 ----
                          (setq x (- x #x100))
                          (make-char 'mule-unicode-0100-24ff
                                     (+ (/ x 96) 32) (+ (% x 96) 32)))
!                        ((< x #x3400)
                          (setq x (- x #x2500))
                          (make-char 'mule-unicode-2500-33ff
                                     (+ (/ x 96) 32) (+ (% x 96) 32)))
***************
*** 254,261 ****
                             to #x33FF))))
            (if (<= from to)
                (setq ranges (cons (cons from to) ranges))))
!         (mapconcat #'(lambda (x) 
!                        (format "%c-%c" 
                                 (funcall decode-char-no-trans (car x))
                                 (funcall decode-char-no-trans (cdr x))))
                     ranges "")))
--- 254,261 ----
                             to #x33FF))))
            (if (<= from to)
                (setq ranges (cons (cons from to) ranges))))
!         (mapconcat #'(lambda (x)
!                        (format "%c-%c"
                                 (funcall decode-char-no-trans (car x))
                                 (funcall decode-char-no-trans (cdr x))))
                     ranges "")))
***************
*** 271,277 ****
  Setting this variable directly does not take effect;
  use either \\[customize] or the function
  `utf-translate-cjk-set-unicode-range'."
!   :version "21.4"
    :type '(repeat (cons integer integer))
    :set (lambda (symbol value)
         (utf-translate-cjk-set-unicode-range value))
--- 271,277 ----
  Setting this variable directly does not take effect;
  use either \\[customize] or the function
  `utf-translate-cjk-set-unicode-range'."
!   :version "22.1"
    :type '(repeat (cons integer integer))
    :set (lambda (symbol value)
         (utf-translate-cjk-set-unicode-range value))
***************
*** 378,384 ****
  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
    :group 'mule
    :global t
--- 378,384 ----
  by the above coding systems, you can customize the user option
  `utf-translate-cjk-mode' to nil."
    :init-value t
!   :version "22.1"
    :type 'boolean
    :group 'mule
    :global t
***************
*** 941,947 ****
  (defcustom utf-8-compose-scripts nil
    "*Non-nil means compose various scripts on decoding utf-8 text."
    :group 'mule
!   :version "21.4"
    :type 'boolean)
  
  (defun utf-8-post-read-conversion (length)
--- 941,947 ----
  (defcustom utf-8-compose-scripts nil
    "*Non-nil means compose various scripts on decoding utf-8 text."
    :group 'mule
!   :version "22.1"
    :type 'boolean)
  
  (defun utf-8-post-read-conversion (length)