Mercurial > emacs

changeset 24686:f2ecc3b6a45f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change the x-charset-registry property for the Japanese charsets that are supported by Japanese Windows fonts.
author Andrew Innes <andrewi@gnu.org>
date Mon, 03 May 1999 22:19:43 +0000
parents 545bf3abb3a2
children 8d4b8adc3c98
files lisp/term/w32-win.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/w32-win.el	Mon May 03 22:01:09 1999 +0000
+++ b/lisp/term/w32-win.el	Mon May 03 22:19:43 1999 +0000
@@ -884,6 +884,13 @@
 Courier. These fonts are used in the font menu if the variable
 `w32-use-w32-font-dialog' is nil.")
 
+;;; Enable Japanese fonts on Windows to be used by default.
+(put-charset-property 'katakana-jisx0201 'x-charset-registry "JISX0208-SJIS")
+(put-charset-property 'latin-jisx0201 'x-charset-registry "JISX0208-SJIS")
+(put-charset-property 'japanese-jisx0208 'x-charset-registry "JISX0208-SJIS")
+(put-charset-property 'japanese-jisx0208-1978 'x-charset-registry
+                      "JISX0208-SJIS")
+
 (defun mouse-set-font (&rest fonts)
   "Select a font. If `w32-use-w32-font-dialog' is non-nil (the default),
 use the Windows font dialog. Otherwise use a pop-up menu (like Emacs