69 |
|
|
70 |
(if (not (eq window-system 'w32)) |
(if (not (eq window-system 'w32)) |
71 |
(error "%s: Loading w32-win.el but not compiled for w32" (invocation-name))) |
(error "%s: Loading w32-win.el but not compiled for w32" (invocation-name))) |
72 |
|
|
73 |
(require 'frame) |
(require 'frame) |
74 |
(require 'mouse) |
(require 'mouse) |
75 |
(require 'scroll-bar) |
(require 'scroll-bar) |
148 |
(setq default-frame-alist |
(setq default-frame-alist |
149 |
(cons (cons param |
(cons (cons param |
150 |
(car x-invocation-args)) |
(car x-invocation-args)) |
151 |
default-frame-alist)) |
default-frame-alist) |
152 |
x-invocation-args (cdr x-invocation-args)))))) |
x-invocation-args (cdr x-invocation-args))))))) |
153 |
|
|
154 |
(defun x-handle-numeric-switch (switch) |
(defun x-handle-numeric-switch (switch) |
155 |
"Handle SWITCH of the form \"-switch n\"." |
"Handle SWITCH of the form \"-switch n\"." |
206 |
(append default-frame-alist |
(append default-frame-alist |
207 |
'((user-size . t)) |
'((user-size . t)) |
208 |
(if height (list height)) |
(if height (list height)) |
209 |
|
(if width (list width))) |
210 |
|
initial-frame-alist |
211 |
|
(append initial-frame-alist |
212 |
|
'((user-size . t)) |
213 |
|
(if height (list height)) |
214 |
(if width (list width))))) |
(if width (list width))))) |
215 |
(if (or left top) |
(if (or left top) |
216 |
(setq initial-frame-alist |
(setq initial-frame-alist |
1126 |
;; Conditional on new-fontset so bootstrapping works on non-GUI compiles |
;; Conditional on new-fontset so bootstrapping works on non-GUI compiles |
1127 |
(if (fboundp 'new-fontset) |
(if (fboundp 'new-fontset) |
1128 |
(progn |
(progn |
1129 |
|
;; Setup the default fontset. |
1130 |
|
(setup-default-fontset) |
1131 |
;; Create the standard fontset. |
;; Create the standard fontset. |
1132 |
(create-fontset-from-fontset-spec w32-standard-fontset-spec t) |
(create-fontset-from-fontset-spec w32-standard-fontset-spec t) |
1133 |
;; Create fontset specified in X resources "Fontset-N" (N is 0, 1,...). |
;; Create fontset specified in X resources "Fontset-N" (N is 0, 1,...). |
1234 |
(list face (if (equal value "") nil value)))) |
(list face (if (equal value "") nil value)))) |
1235 |
|
|
1236 |
;;; Enable Japanese fonts on Windows to be used by default. |
;;; Enable Japanese fonts on Windows to be used by default. |
1237 |
(set-fontset-font t (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS")) |
(set-fontset-font nil (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS")) |
1238 |
(set-fontset-font t (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS")) |
(set-fontset-font nil (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS")) |
1239 |
(set-fontset-font t (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS")) |
(set-fontset-font nil (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS")) |
1240 |
(set-fontset-font t (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS")) |
(set-fontset-font nil (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS")) |
1241 |
|
|
1242 |
(defun mouse-set-font (&rest fonts) |
(defun mouse-set-font (&rest fonts) |
1243 |
"Select a font. |
"Select a font. |