lisp/term/mac-win.el

66 ;; An alist of X options and the function which handles them.  See
82 (defvar mac-charset-info-alist)
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))
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
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
1241 ;;;; Keyboard layout/language change events
1242 (defun mac-handle-language-change (event)
1252 (define-key special-event-map [language-change] 'mac-handle-language-change)
1389 in `selection-converter-alist', which see."
1524 (setq selection-converter-alist
1533        selection-converter-alist))
1660 (defun mac-ae-script-language (ae keyword)
1702 (defconst mac-keyboard-modifier-mask-alist
1717 	(dolist (modifier-mask mac-keyboard-modifier-mask-alist)
2036 	 (script-language (mac-ae-script-language ae "tssl"))
2037 	 (coding (or (cdr (assq (car script-language)
2112 	 (script-language (mac-ae-script-language ae "tssl"))
2113 	 (coding (or (cdr (assq (car script-language)
2216 (defcustom mac-dnd-types-alist
2230   :type 'alist
2261   (let* ((type-info (assoc type mac-dnd-types-alist))
2262 	 (handler (cdr type-info))
2401 (setq font-ccl-encoder-alist
2405        font-ccl-encoder-alist))
2428     ;; Like fontset-info, but extend a range only if its "to" part is
2500 ;; Adjust Courier font specifications in x-fixed-font-alist.
2501 (let ((courier-fonts (assoc "Courier" x-fixed-font-alist)))
2546 ;; from initial-frame-alist, default-frame-alist, or X resource.
2548 ;; should be already in default-frame-alist as a `font'
2553 (let ((font (or (cdr (assq 'font initial-frame-alist))
2554 		(cdr (assq 'font default-frame-alist))
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)))))