Lines Matching +defs:char +defs:charset
82 (defvar mac-charset-info-alist)
1086 ;; These tell read-char how to convert
1113 (defun mac-add-charset-info (xlfd-charset mac-text-encoding)
1115 Create an entry in `mac-charset-info-alist'.
1119 (add-to-list 'mac-charset-info-alist
1120 (list xlfd-charset mac-text-encoding
1124 (setq mac-charset-info-alist nil)
1125 (mac-add-charset-info "mac-roman" 0)
1126 (mac-add-charset-info "jisx0208.1983-sjis" 1)
1127 (mac-add-charset-info "jisx0201.1976-0" 1)
1128 (mac-add-charset-info "big5-0" 2)
1129 (mac-add-charset-info "ksc5601.1989-0" 3)
1130 (mac-add-charset-info "mac-cyrillic" 7)
1131 (mac-add-charset-info "gb2312.1980-0" 25)
1132 (mac-add-charset-info "mac-centraleurroman" 29)
1133 (mac-add-charset-info "mac-symbol" 33)
1134 (mac-add-charset-info "adobe-fontspecific" 33) ; for X-Symbol
1135 (mac-add-charset-info "mac-dingbats" 34)
1136 (mac-add-charset-info "iso10646-1" 126) ; for ATSUI
1149 (coding-system-put 'mac-centraleurroman 'mime-charset 'x-mac-centraleurroman)
1162 (coding-system-put 'mac-cyrillic 'mime-charset 'x-mac-cyrillic)
1194 (char-table-extra-slot translation-table 0)))
1226 (char-table-extra-slot translation-table 0)))
1282 (subst-char-in-string ?\x5c ?\¥ str t)
1283 (subst-char-in-string ?\x80 ?\\ str t)))))
1300 (setq str (subst-char-in-string ?\\ ?\x80 str))
1301 (subst-char-in-string ?\¥ ?\x5c str t)
1317 ;; (subst-char-in-string ?\x5c ?\¥ data t)
1318 (subst-char-in-string ?\x80 ?\\ data t))))
1332 ;; (setq string (subst-char-in-string ?\\ ?\x80 string))
1333 (setq string (subst-char-in-string ?\¥ ?\x5c string)))
1742 (goto-char end))))))
2009 (defun mac-keyboard-translate-char (ch)
2010 (if (and (char-valid-p ch)
2011 (or (char-table-p keyboard-translate-table)
2022 (mapcar 'mac-keyboard-translate-char
2057 (get-char-property (point) 'invisible)
2059 (or (and (get-char-property (point) 'display)
2060 (eq (get-char-property (1- (point)) 'display)
2061 (get-char-property (point) 'display)))
2062 (and (get-char-property (point) 'composition)
2063 (eq (get-char-property (1- (point)) 'composition)
2064 (get-char-property (point) 'composition)))))))
2272 (goto-char (posn-point (event-start event))))
2337 (charset-list
2344 (dolist (charset charset-list)
2346 (let* ((c (make-char charset (+ i 32)))
2407 (defconst mac-char-fontspec-list
2408 ;; Directly operate on a char-table instead of a fontset so that it
2410 (let ((template (make-char-table 'fontset)))
2419 (map-char-table
2422 (generic-char-p key)
2423 (memq (char-charset key)
2429 ;; the predecessor of the current char.
2432 last-char-or-range last-char last-elt)
2433 (map-char-table
2434 (lambda (char elt)
2436 (setq last-char-or-range (car (car last))
2437 last-char (if (consp last-char-or-range)
2438 (cdr last-char-or-range)
2439 last-char-or-range)
2442 (= char (1+ last-char))
2443 (eq (char-charset char) (char-charset last-char)))
2444 (if (consp last-char-or-range)
2445 (setcdr last-char-or-range char)
2446 (setcar (car last) (cons last-char char)))
2447 (setcdr last (list (cons char elt)))
2455 of `mac-char-fontspec-list', which is a list
2464 (let ((ascii-font (fontset-font fontset (charset-id 'ascii))))
2471 (dolist (char-fontspec mac-char-fontspec-list)
2472 (setq fontspec (cdr (assq (cdr char-fontspec) fontspec-cache)))
2476 (format (car (cdr char-fontspec)) base-family))
2477 (cdr (cdr char-fontspec))))
2478 (setq fontspec-cache (cons (cons (cdr char-fontspec) fontspec)
2480 (set-fontset-font fontset (car char-fontspec) fontspec))))
2521 (charset '(latin-iso8859-1
2529 (set-fontset-font nil charset '(nil . "iso10646-1"))))
2661 (goto-char (window-start window))
2670 (goto-char (window-start window))