mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

Enable SJIS fonts before creating any fontsets.

Browse Source
This commit is contained in:
Jason Rumney 2007-11-10 01:28:52 +00:00
parent e290d997cd
commit 756d09c83f
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2007-11-10 Jason Rumney <jasonr@gnu.org>
* term/w32-win.el: Enable SJIS fonts before creating any fontsets.
2007-11-10 Juanma Barranquero <lekktu@gmail.com>
* ido.el (ido-save-history): Write the history file in UTF-8,

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

@ -1108,6 +1108,15 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
(progn
;; Setup the default fontset.
(setup-default-fontset)
;; 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"))
;; Create the standard fontset.
(create-fontset-from-fontset-spec w32-standard-fontset-spec t)
;; Create fontset specified in X resources "Fontset-N" (N is 0, 1,...).
@ -1209,12 +1218,6 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
nil nil default))))
(list face (if (equal value "") nil value))))
;;; 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.