/[emacs]/emacs/lisp/term/w32-win.el
ViewVC logotype

Diff of /emacs/lisp/term/w32-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by jasonr, Sat May 4 22:17:07 2002 UTC revision 1.52.2.1 by miles, Fri Apr 4 06:20:37 2003 UTC
# Line 69  Line 69 
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)
# Line 148  the last file dropped is selected." Line 148  the last file dropped is selected."
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\"."
# Line 206  the last file dropped is selected." Line 206  the last file dropped is selected."
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
# Line 1121  See the documentation of `create-fontset Line 1126  See the documentation of `create-fontset
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,...).
# Line 1227  See the documentation of `create-fontset Line 1234  See the documentation of `create-fontset
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.

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.52.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26