/[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.80 by handa, Wed Sep 25 08:11:03 2002 UTC revision 1.81 by handa, Wed Sep 25 08:52:30 2002 UTC
# Line 89  but still shows the full information." Line 89  but still shows the full information."
89        (if arg        (if arg
90            (list-character-sets-2)            (list-character-sets-2)
91          ;; Insert header.          ;; Insert header.
92            (insert "Indirectly supported character sets are shown below.\n")
93          (insert          (insert
94           (substitute-command-keys           (substitute-command-keys
95            (concat "Use "            (concat "Use "
# Line 117  but still shows the full information." Line 118  but still shows the full information."
118          (insert "------\t------------\t\t\t--------------\t- -- ----------\n")          (insert "------\t------------\t\t\t--------------\t- -- ----------\n")
119    
120          ;; Insert body sorted by charset IDs.          ;; Insert body sorted by charset IDs.
121          (list-character-sets-1 'id)))))          (list-character-sets-1 'id)
122    
123            ;; Insert non-directly-supported charsets.
124            (insert-char ?- 72)
125            (insert "\n\nINDIRECTLY SUPPORTED CHARSETS SETS:\n\n"
126                    (propertize "CHARSET NAME\tMAPPED TO" 'face 'bold)
127                    "\n------------\t---------\n")
128            (dolist (elt non-iso-charset-alist)
129              (insert-text-button (symbol-name (car elt))
130                                  :type 'list-charset-chars
131                                  'help-args (list (car elt)))
132              (indent-to 16)
133              (dolist (e (nth 1 elt))
134                (when (>= (+ (current-column) 1 (string-width (symbol-name e)))
135                          ;; This is an approximate value.  We don't know
136                          ;; the correct window width of this buffer yet.
137                          78)
138                  (insert "\n")
139                  (indent-to 16))
140    
141                (insert (format "%s " e)))
142              (insert "\n"))))))
143    
144  (defun sort-listed-character-sets (sort-key)  (defun sort-listed-character-sets (sort-key)
145    (if sort-key    (if sort-key
# Line 127  but still shows the full information." Line 149  but still shows the full information."
149            (goto-char (point-min))            (goto-char (point-min))
150            (re-search-forward "[0-9][0-9][0-9]")            (re-search-forward "[0-9][0-9][0-9]")
151            (beginning-of-line)            (beginning-of-line)
152            (delete-region (point) (point-max))            (let ((pos (point)))
153            (list-character-sets-1 sort-key)))))              (search-forward "----------")
154                (beginning-of-line)
155                (save-restriction
156                  (narrow-to-region pos (point))
157                  (delete-region (point-min) (point-max))
158                  (list-character-sets-1 sort-key)))))))
159    
160  (defun charset-multibyte-form-string (charset)  (defun charset-multibyte-form-string (charset)
161    (let ((info (charset-info charset)))    (let ((info (charset-info charset)))
# Line 249  but still shows the full information." Line 276  but still shows the full information."
276    
277  (defvar non-iso-charset-alist  (defvar non-iso-charset-alist
278    `((mac-roman    `((mac-roman
279       nil       (ascii latin-iso8859-1 mule-unicode-2500-33ff
280                mule-unicode-0100-24ff mule-unicode-e000-ffff)
281       mac-roman-decoder       mac-roman-decoder
282       ((0 255)))       ((0 255)))
283      (viscii      (viscii

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

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