mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(w32-initialize-window-system): Use t, not nil to signify default fontset.

Browse Source
This commit is contained in:
Jason Rumney 2007-11-17 02:40:11 +00:00
parent d4599abc04
commit 70628e53b5
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/term/w32-win.el
View File

@ -1082,12 +1082,6 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
(error "Suspending an Emacs running under W32 makes no sense"))
;;; Enable Japanese fonts on Windows to be used by default.
;; (set-fontset-font nil (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS"))
;; (set-fontset-font nil (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS"))
;; (set-fontset-font nil (make-char 'japanese-jisx0208) '("*" . "JISX0208-SJIS"))
;; (set-fontset-font nil (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS"))
(defun mouse-set-font (&rest fonts)
"Select an Emacs font from a list of known good fonts and fontsets.
@ -1160,13 +1154,13 @@ pop-up menu are unaffected by `w32-list-proportional-fonts')."
(setup-default-fontset)
;; Enable Japanese fonts on Windows to be used by default.
(set-fontset-font nil (make-char 'katakana-jisx0201)
(set-fontset-font t (make-char 'katakana-jisx0201)
'("*" . "JISX0208-SJIS"))
(set-fontset-font nil (make-char 'latin-jisx0201)
(set-fontset-font t (make-char 'latin-jisx0201)
'("*" . "JISX0208-SJIS"))
(set-fontset-font nil (make-char 'japanese-jisx0208)
(set-fontset-font t (make-char 'japanese-jisx0208)
'("*" . "JISX0208-SJIS"))
(set-fontset-font nil (make-char 'japanese-jisx0208-1978)
(set-fontset-font t (make-char 'japanese-jisx0208-1978)
'("*" . "JISX0208-SJIS"))
;; Create the standard fontset.