/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.68.2.4 by fx, Fri May 17 10:01:55 2002 UTC revision 1.68.2.5 by fx, Fri May 17 16:09:58 2002 UTC
# Line 63  Line 63 
63  (defun list-character-sets (arg)  (defun list-character-sets (arg)
64    "Display a list of all character sets.    "Display a list of all character sets.
65    
 The ID-NUM column contains a charset identification number for  
 internal Emacs use.  
   
 The MULTIBYTE-FORM column contains the format of the buffer and string  
 multibyte sequence of characters in the charset using one to four  
 hexadecimal digits.  
   `xx' stands for any byte in the range 0..127.  
   `XX' stands for any byte in the range 160..255.  
   
66  The D column contains the dimension of this character set.  The CH  The D column contains the dimension of this character set.  The CH
67  column contains the number of characters in a block of this character  column contains the number of characters in a block of this character
68  set.  The FINAL-CHAR column contains an ISO-2022 <final-char> to use  set.  The FINAL-CHAR column contains an ISO-2022 <final-char> to use
# Line 263  detailed meanings of these arguments." Line 254  detailed meanings of these arguments."
254        (setq ch (cond ((< i min)        (setq ch (cond ((< i min)
255                        32)                        32)
256                       ((charsetp charset)                       ((charsetp charset)
257                        (if (= row 0)                        (condition-case nil
258                            (make-char charset i)                            (if (= row 0)
259                          (make-char charset row i)))                                (make-char charset i)
260                                (make-char charset row i))
261                            (error 32)))    ; gap in mapping
262                       ((and (symbolp charset) (get charset 'translation-table))                       ((and (symbolp charset) (get charset 'translation-table))
263                        (aref (get charset 'translation-table) i))                        (aref (get charset 'translation-table) i))
264                       (t (funcall charset (+ (* row 256) i)))))                       (t (funcall charset (+ (* row 256) i)))))

Legend:
Removed from v.1.68.2.4  
changed lines
  Added in v.1.68.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26