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 " |
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 |
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))) |
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 |