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

[Kenichi Handa]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.159 
emacs/lisp/international/mule.el:1.160
*** emacs/lisp/international/mule.el:1.159      Mon Aug 19 02:39:06 2002
--- emacs/lisp/international/mule.el    Wed Sep  4 04:15:40 2002
***************
*** 308,314 ****
  Return nil if such a character is not supported.
  Currently the only supported coded character set is `ucs' (ISO/IEC
  10646: Universal Multi-Octet Coded Character Set), and the result is
! translated through the char table `utf-8-translation-table-for-decode'.
  
  Optional argument RESTRICTION specifies a way to map the pair of CCS
  and CODE-POINT to a character.   Currently not supported and just ignored."
--- 308,315 ----
  Return nil if such a character is not supported.
  Currently the only supported coded character set is `ucs' (ISO/IEC
  10646: Universal Multi-Octet Coded Character Set), and the result is
! translated through the char table `utf-8-translation-table-for-decode'
! if the variable `utf-8-fragment-on-decoding' is non-nil.
  
  Optional argument RESTRICTION specifies a way to map the pair of CCS
  and CODE-POINT to a character.   Currently not supported and just ignored."
***************
*** 331,337 ****
               (setq code-point (- code-point #xe000))
               (make-char 'mule-unicode-e000-ffff
                          (+ (/ code-point 96) 32) (+ (% code-point 96) 32))))))
!       (if (and c (aref utf-8-translation-table-for-decode c))
          (aref utf-8-translation-table-for-decode c)
        c)))))
  
--- 332,340 ----
               (setq code-point (- code-point #xe000))
               (make-char 'mule-unicode-e000-ffff
                          (+ (/ code-point 96) 32) (+ (% code-point 96) 32))))))
!       (if (and c
!              utf-8-fragment-on-decoding
!              (aref utf-8-translation-table-for-decode c))
          (aref utf-8-translation-table-for-decode c)
        c)))))
  
***************
*** 842,847 ****
--- 845,855 ----
    file.  Each element of the list is an integer or a cons of integer.
    In the former case, the integer value is a valid byte code.  In the
    latter case, the integers specify the range of valid byte codes.
+ 
+   o composition (meaningful only when TYPE is 0 or 2)
+ 
+   If the value is non-nil, the coding system preserves information of
+   composition.
  
  These properties are set in PLIST, a property list.  This function
  also sets properties `coding-category' and `alias-coding-systems'