Lines Matching +defs:insert +defs:char
96 decode-big5-char
101 decode-sjis-char
149 set. The FINAL-CHAR column contains an ISO-2022 <final-char> to use
161 (insert "Indirectly supported character sets are shown below.\n")
162 (insert
167 (insert " on a column title to sort by that title,")
169 (insert "+----DIMENSION\n")
170 (insert " on a charset name to list characters.")
172 (insert "| +--CHARS\n")
180 (insert (car columns))
181 (insert-text-button (car (car columns))
184 (goto-char (point-max)))
186 (insert "\n"))
187 (insert "------\t------------\t\t\t--------------\t- -- ----------\n")
193 (insert-char ?- 72)
194 (insert "\n\nINDIRECTLY SUPPORTED CHARSETS SETS:\n\n"
198 (insert-text-button (symbol-name (car elt))
207 (insert "\n")
210 (insert (format "%s " e)))
211 (insert "\n"))))))
218 (goto-char (point-min))
296 (insert (format "%03d(%02X)" (car elt) (car elt))) ; ID-NUM
298 (insert-text-button (symbol-name (nth 1 elt))
301 (goto-char (point-max))
302 (insert "\t")
304 (insert (nth 2 elt)) ; MULTIBYTE-FORM
306 (insert (format "%d %2d " (nth 3 elt) (nth 4 elt)) ; DIMENSION and CHARS
308 (insert "\n"))))
314 (insert "#########################
342 (charset-iso-final-char charset)
346 (defun decode-codepage-char (codepage code)
353 (string-to-char
354 (decode-coding-string (char-to-string code) coding-system))))
393 (insert-char ?- (+ 4 (* 3 16)))
394 (insert "\n ")
397 (insert (format "%3X" i))
402 (insert (format "\n%3Xx" (/ (+ (* row 256) i) 16))))
407 (make-char charset i)
408 (make-char charset row i)))
412 (if (and (char-table-p charset)
414 ;; Don't insert a control code.
420 ;; This doesn't DTRT. Maybe it's better to insert "^J" and not
425 (insert ch)
427 (insert "\n"))
434 (insert (format "Characters in the coded character set %s.\n" charset))
463 (insert (format "Characters in the coded character set %s.\n" charset))
465 (insert "They are mapped to: "
536 (insert "Character set: " (symbol-name charset)
538 (insert (aref info 13) "\n\n") ; description
539 (insert "Number of contained characters: "
543 (insert "Final char of ISO2022 designation sequence: ")
545 (insert (format "`%c'\n" (aref info 8)))
546 (insert "not assigned\n"))
547 (insert (format "Width (how many columns on screen): %d\n"
549 (insert (format "Internal multibyte sequence: %s\n"
553 (insert (format "Preferred coding system: %s\n" coding))
689 (insert "This coding system can encode all charsets except for
691 (insert "This coding system encodes the following charsets:\n ")
693 (insert " " (symbol-name (car charsets)))
696 (goto-char (point-max))
859 (insert (format " %s" (car codings)))
861 (goto-char pos)
862 (insert "\n ")
863 (goto-char (point-max)))
865 (insert "\n\n")))
1081 (insert "Fontset: " fontset "\n")
1082 (insert "CHARSET or CHAR RANGE")
1084 (insert "FONT NAME\n")
1085 (insert "---------------------")
1087 (insert "---------")
1088 (insert "\n")
1095 (setq charset (char-charset chars) from chars to chars)
1096 (setq charset (char-charset (car chars))
1099 (insert (symbol-name charset))
1101 (insert "\n")))
1103 (let ((split (split-char from)))
1107 (make-char charset (nth 1 split)
1109 (insert " " from))
1111 (insert "-")
1112 (let ((split (split-char to)))
1116 (make-char charset (nth 1 split)
1118 (insert to))))
1121 (insert font-spec)
1124 (insert "-" (car font-spec) "-*-")
1125 (insert "-*-" (car font-spec) "-*-"))
1126 (insert "-*-"))
1129 (insert (cdr font-spec))
1130 (insert (cdr font-spec) "-*"))
1131 (insert "*")))
1132 (insert "\n")
1136 (insert "[" (car opened) "]\n")
1184 (insert "Fontset: " (car fontsets) "\n"))
1197 (goto-char (point-min))
1235 (defun insert-section (section-number title)
1236 (insert "########################################\n"
1251 (insert "###############################################\n"
1260 (insert " Section 6. Fontsets\n"))
1261 (insert "\n")
1263 (insert-section 1 "General Information")
1264 (insert "Version of this emacs:\n " (emacs-version) "\n\n")
1265 (insert "Configuration options:\n " system-configuration-options "\n\n")
1266 (insert "Multibyte characters awareness:\n"
1269 (insert "Current language environment: " current-language-environment
1272 (insert-section 2 "Display")
1274 (insert "Window-system: "
1277 (insert "Terminal: " (getenv "TERM")))
1278 (insert "\n\n")
1282 (insert "The selected frame is using the "
1285 (insert "Coding system of the terminal: "
1287 (insert "\n\n")
1289 (insert-section 3 "Input methods")
1291 (insert "\n")
1293 (insert (format "Default input method: %s\n" default-input-method))
1294 (insert "No default input method is specified\n"))
1296 (insert-section 4 "Coding systems")
1308 (insert "\n")
1310 (insert-section 5 "Character sets")
1312 (insert "\n")
1316 (insert-section 6 "Fontsets")
1317 (insert "Fontset-Name\t\t\t\t\t\t WDxHT Style\n")
1318 (insert "------------\t\t\t\t\t\t ----- -----\n")