Lines Matching +refs:font +refs:name +refs:charset +refs:alist
54 ;; -fn *font
55 ;; -font *font
59 ;; -name .name
66 ;; An alist of X options and the function which handles them. See
70 (error "%s: Loading mac-win.el but not compiled for Mac" (invocation-name)))
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)))
144 (error "%s: missing argument to `%s' option" (invocation-name) switch))
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
177 ;; Handle the -name option. Set the variable x-resource-name
178 ;; to the option's operand; set the name of
180 (defun x-handle-name-switch (switch)
182 (error "%s: missing argument to `%s' option" (invocation-name) switch))
183 (setq x-resource-name (car x-invocation-args)
185 (setq initial-frame-alist (cons (cons 'name x-resource-name)
186 initial-frame-alist)))
188 (defvar x-display-name nil
189 "The display name specifying server and frame.")
192 (setq x-display-name (car x-invocation-args)
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))
1096 ;; Modifier name `ctrl' is an alias of `control'.
1113 (defun mac-add-charset-info (xlfd-charset mac-text-encoding)
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
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)
1389 in `selection-converter-alist', which see."
1482 (put 'CLIPBOARD 'mac-scrap-name "com.apple.scrap.clipboard")
1484 (put 'FIND 'mac-scrap-name "com.apple.scrap.find")
1485 (put 'PRIMARY 'mac-scrap-name
1516 (coding (or file-name-coding-system default-file-name-coding-system)))
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)
1726 (dolist (file-name (mac-ae-list ae nil 'undecoded-file-name))
1727 (if file-name
1731 (split-string file-name "/") "/")) nil)))
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
2243 (let* ((file-name (mac-coerce-ae-data "fss " (substring data 10)
2244 'undecoded-file-name))
2247 (split-string file-name "/") "/"))))
2261 (let* ((type-info (assoc type mac-dnd-types-alist))
2300 ;;; Make sure we have a valid resource name.
2301 (or (stringp x-resource-name)
2303 (setq x-resource-name (invocation-name))
2305 ;; Change any . or * characters in x-resource-name to hyphens,
2307 (while (setq i (string-match "[.*]" x-resource-name))
2308 (aset x-resource-name i ?-))))
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
2325 ccl-encode-mac-roman-font "%s")
2327 ccl-encode-mac-centraleurroman-font "%s ce")
2329 ccl-encode-mac-cyrillic-font "%s cy")
2331 ccl-encode-mac-symbol-font "symbol")
2333 ccl-encode-mac-dingbats-font "zapf dingbats")))
2336 (mapcar (lambda (lst) (nth 1 lst)) mac-font-encoder-list))
2337 (charset-list
2344 (dolist (charset charset-list)
2346 (let* ((c (make-char charset (+ i 32)))
2355 (define-ccl-program ccl-encode-mac-roman-font
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
2389 "CCL program for Mac Symbol font")
2391 (define-ccl-program ccl-encode-mac-dingbats-font
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)))
2423 (memq (char-charset key)
2425 (aset template key font)))
2443 (eq (char-charset char) (char-charset last-char)))
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
2483 fontset-name)
2484 "Create a fontset from a Mac roman font FONT.
2486 Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If
2487 omitted, `x-resolve-font-name' is called to get the resolved name. At
2491 `<CHARSET_ENCODING>' fields of a new fontset name. If it is omitted,
2492 an appropriate name is generated automatically.
2494 It returns a name of the created fontset."
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))
2521 (charset '(latin-iso8859-1
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")))
2556 xlfd-fields resolved-name)
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))
2563 ;; Create a fontset from FONT. The fontset name is
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)))))
2620 ;; Don't show the frame name; that's redundant.
2714 (setq shell-file-name "sh")
2717 (dolist (v '(system-name
2719 user-login-name user-real-login-name user-full-name))