Mercurial > hg > xemacs-beta

diff lisp/mule/japanese-hooks.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 0d2f883870bc
children fe104dbd9147
line wrap: on
line diff
--- a/lisp/mule/japanese-hooks.el	Mon Aug 13 09:15:13 2007 +0200
+++ b/lisp/mule/japanese-hooks.el	Mon Aug 13 09:15:49 2007 +0200
@@ -180,7 +180,8 @@
     (set-default-file-coding-system  'euc-japan)
     (setq keyboard-coding-system     'euc-japan)
     (setq terminal-coding-system     'euc-japan)
-    (set-charset-registry 'ascii "JISX0201")
+    (when (eq 'x (device-type (selected-device)))
+      (x-use-halfwidth-roman-font 'japanese-jisx0208 "jisx0201"))
     
     (when (eq system-type 'ms-dos)
       ;; Shift-JIS is the standard coding system under Japanese MS-DOS