Lines Matching +defs:font +defs:ccl +defs:encoder +defs:alist
54 ;; -fn *font
55 ;; -font *font
66 ;; An alist of X options and the function which handles them. See
82 (defvar mac-charset-info-alist)
86 (defvar mac-font-panel-mode)
94 (let ((aelt (assoc switch command-line-x-option-alist)))
99 (setq default-frame-alist
101 default-frame-alist))
102 (setq default-frame-alist
105 default-frame-alist)
110 (let ((aelt (assoc switch command-line-x-option-alist)))
113 (setq default-frame-alist
116 default-frame-alist)
122 (let ((aelt (assoc switch command-line-x-option-alist)))
127 (setq initial-frame-alist
129 initial-frame-alist))
130 (setq initial-frame-alist
133 initial-frame-alist)
138 (setq initial-frame-alist
139 (cons '(visibility . icon) initial-frame-alist)))
159 (setq default-frame-alist
160 (append default-frame-alist
164 initial-frame-alist
165 (append initial-frame-alist
170 (setq initial-frame-alist
171 (append initial-frame-alist
185 (setq initial-frame-alist (cons (cons 'name x-resource-name)
186 initial-frame-alist)))
219 (setq completion (try-completion this-switch command-line-x-option-alist))
224 (let ((elt (assoc completion command-line-x-option-alist)))
229 (setq aelt (assoc this-switch command-line-x-option-alist))
1115 Create an entry in `mac-charset-info-alist'.
1116 XLFD-CHARSET is a string which will appear in the XLFD font name
1119 (add-to-list 'mac-charset-info-alist
1124 (setq mac-charset-info-alist nil)
1193 (define-translation-table 'mac-symbol-encoder
1225 (define-translation-table 'mac-dingbats-encoder
1389 in `selection-converter-alist', which see."
1524 (setq selection-converter-alist
1533 selection-converter-alist))
1557 (put 'show-hide-font-panel 'mac-apple-event-id "shfp") ; kHICommandShowHideFontPanel
1702 (defconst mac-keyboard-modifier-mask-alist
1717 (dolist (modifier-mask mac-keyboard-modifier-mask-alist)
1813 (when (fboundp 'mac-set-font-panel-visible-p)
1815 (define-minor-mode mac-font-panel-mode
1816 "Toggle use of the font panel.
1817 With numeric ARG, display the font panel if and only if ARG is positive."
1821 (mac-set-font-panel-visible-p mac-font-panel-mode))
1823 (defun mac-handle-font-panel-closed (event)
1824 "Update internal status in response to font panel closed EVENT."
1827 (mac-font-panel-mode 0))
1829 (defun mac-handle-font-selection (event)
1830 "Change default face attributes according to font selection EVENT."
1833 (fm-font-size (mac-ae-number ae "fmsz"))
1834 (atsu-font-id (mac-ae-number ae "auid"))
1835 (attribute-values (and atsu-font-id
1836 (mac-atsu-font-face-attributes atsu-font-id))))
1837 (if fm-font-size
1839 `(:height ,(* 10 fm-font-size) ,@attribute-values)))
1843 (define-key mac-apple-event-map [font panel-closed]
1844 'mac-handle-font-panel-closed)
1846 (define-key mac-apple-event-map [font selection] 'mac-handle-font-selection)
1847 (define-key mac-apple-event-map [hi-command show-hide-font-panel]
1848 'mac-font-panel-mode)
1850 (define-key-after menu-bar-showhide-menu [mac-font-panel-mode]
1851 (menu-bar-make-mm-toggle mac-font-panel-mode
1853 "Show the font panel as a floating dialog")
1856 ) ;; (fboundp 'mac-set-font-panel-visible-p)
2216 (defcustom mac-dnd-types-alist
2230 :type 'alist
2261 (let* ((type-info (assoc type mac-dnd-types-alist))
2312 ;; font names are not ready at the time when the terminal frame is
2313 ;; created. So we reconstruct font name table for the initial
2315 (mac-clear-font-name-table)
2323 (defvar mac-font-encoder-list
2324 '(("mac-roman" mac-roman-encoder
2325 ccl-encode-mac-roman-font "%s")
2327 ccl-encode-mac-centraleurroman-font "%s ce")
2329 ccl-encode-mac-cyrillic-font "%s cy")
2330 ("mac-symbol" mac-symbol-encoder
2331 ccl-encode-mac-symbol-font "symbol")
2332 ("mac-dingbats" mac-dingbats-encoder
2333 ccl-encode-mac-dingbats-font "zapf dingbats")))
2335 (let ((encoder-list
2336 (mapcar (lambda (lst) (nth 1 lst)) mac-font-encoder-list))
2342 (dolist (encoder encoder-list)
2343 (let ((table (get encoder 'translation-table)))
2355 (define-ccl-program ccl-encode-mac-roman-font
2358 (translate-character mac-roman-encoder r0 r1)
2361 (translate-character mac-roman-encoder r0 r1))))
2362 "CCL program for Mac Roman font")
2364 (define-ccl-program ccl-encode-mac-centraleurroman-font
2371 "CCL program for Mac Central European Roman font")
2373 (define-ccl-program ccl-encode-mac-cyrillic-font
2380 "CCL program for Mac Cyrillic font")
2382 (define-ccl-program ccl-encode-mac-symbol-font
2385 (translate-character mac-symbol-encoder r0 r1)
2388 (translate-character mac-symbol-encoder r0 r1))))
2389 "CCL program for Mac Symbol font")
2391 (define-ccl-program ccl-encode-mac-dingbats-font
2394 (translate-character mac-dingbats-encoder r0 r1)
2397 (translate-character mac-dingbats-encoder r0 r1))))
2398 "CCL program for Mac Dingbats font")
2401 (setq font-ccl-encoder-alist
2404 mac-font-encoder-list)
2405 font-ccl-encoder-alist))
2412 (font-encoder
2416 mac-font-encoder-list)))
2417 (let ((font (car font-encoder))
2418 (encoder (cdr font-encoder)))
2425 (aset template key font)))
2426 (get encoder 'translation-table))))
2453 "Add font-specs for Mac fonts to FONTSET.
2454 The added font-specs are determined by BASE-FAMILY and the value
2457 BASE-FAMILY is nil, the font family in the added font-specs is
2460 replaced with the ASCII font family name in FONTSET."
2464 (let ((ascii-font (fontset-font fontset (charset-id 'ascii))))
2465 (if ascii-font
2467 (aref (x-decompose-font-name
2468 (downcase (x-resolve-font-name ascii-font)))
2480 (set-fontset-font fontset (car char-fontspec) fontspec))))
2482 (defun create-fontset-from-mac-roman-font (font &optional resolved-font
2484 "Create a fontset from a Mac roman font FONT.
2487 omitted, `x-resolve-font-name' is called to get the resolved name. At
2496 (create-fontset-from-ascii-font font resolved-font fontset-name)))
2500 ;; Adjust Courier font specifications in x-fixed-font-alist.
2501 (let ((courier-fonts (assoc "Courier" x-fixed-font-alist)))
2506 (lambda (font)
2507 (if (string-match "\\`-adobe-courier-\\([^-]*\\)-\\(.\\)-\\(.*\\)-iso8859-1\\'" font)
2509 (if (string= (match-string 2 font) "o")
2512 t nil font)
2513 font))
2529 (set-fontset-font nil charset '(nil . "iso10646-1"))))
2534 ;; Create a fontset that uses mac-roman font. With this fontset,
2536 ;; and mule-unicode-xxxx-yyyy) are displayed by a mac-roman font.
2545 ;; Try to create a fontset from a font specification which comes
2546 ;; from initial-frame-alist, default-frame-alist, or X resource.
2547 ;; A font specification in command line argument (i.e. -fn XXXX)
2548 ;; should be already in default-frame-alist as a `font'
2549 ;; parameter. However, any font specifications in site-start
2553 (let ((font (or (cdr (assq 'font initial-frame-alist))
2554 (cdr (assq 'font default-frame-alist))
2555 (x-get-resource "font" "Font")))
2557 (if (and font
2558 (not (query-fontset font))
2559 (setq resolved-name (x-resolve-font-name font))
2560 (setq xlfd-fields (x-decompose-font-name font)))
2562 (new-fontset font (x-complement-fontset-spec xlfd-fields nil))
2567 (create-fontset-from-mac-roman-font font resolved-name "startup")
2568 (create-fontset-from-ascii-font font resolved-name "startup")))))
2571 ;; of the alist, so that anything specified on the command line takes
2584 (setq initial-frame-alist (append initial-frame-alist parsed))
2588 (not (assq 'height default-frame-alist)))
2589 (setq default-frame-alist
2591 default-frame-alist)))
2593 (not (assq 'width default-frame-alist)))
2594 (setq default-frame-alist
2596 default-frame-alist))))))
2603 (setq default-frame-alist
2604 (cons '(reverse . t) default-frame-alist)))))