Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-x-init.el @ 392:1f50e6fe4f3f r21-2-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-11
author cvs
date Mon, 13 Aug 2007 11:10:50 +0200
parents 4f79e16b1112
children 74fd4e045ea6
comparison
equal deleted inserted replaced
391:e50d8e68d7a5 392:1f50e6fe4f3f
1 ;;; mule-x-init.el --- initialization code for X Windows under MULE
2 ;; Copyright (C) 1994 Free Software Foundation, Inc.
3 ;; Copyright (C) 1996 Ben Wing <wing@666.com>
4
5 ;; Author: various
6 ;; Keywords: mule X11
7
8 ;; This file is part of XEmacs.
9 ;;
10 ;; XEmacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14 ;;
15 ;; XEmacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
19 ;;
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
24
25 ;;; Commentary:
26
27 ;;; Code:
28
29 ;;; Work around what is arguably a Sun CDE bug.
30
31 (defun x-use-halfwidth-roman-font (fullwidth-charset roman-registry)
32 "Maybe set charset registry of the 'ascii charset to ROMAN-REGISTRY.
33
34 Do this only if:
35 - the current display is an X device
36 - the displayed width of FULLWIDTH-CHARSET is twice the displayed
37 width of the 'ascii charset, but only when using ROMAN-REGISTRY.
38
39 Traditionally, Asian characters have been displayed so that they
40 occupy exactly twice the screen space of ASCII (`halfwidth')
41 characters. On many systems, e.g. Sun CDE systems, this can only be
42 achieved by using a national variant roman font to display ASCII."
43 (let ((charset-font-width
44 (lambda (charset)
45 (font-instance-width
46 (face-font-instance 'default (selected-device) charset))))
47
48 (twice-as-wide
49 (lambda (cs1 cs2)
50 (let ((width1 (funcall charset-font-width cs1))
51 (width2 (funcall charset-font-width cs2)))
52 (and width1 width2 (eq (+ width1 width1) width2))))))
53
54 (when (eq 'x (device-type))
55 (condition-case nil
56 (unless (funcall twice-as-wide 'ascii fullwidth-charset)
57 (set-charset-registry 'ascii roman-registry)
58 (unless (funcall twice-as-wide 'ascii fullwidth-charset)
59 ;; Restore if roman-registry didn't help
60 (set-charset-registry 'ascii "iso8859-1")))
61 (error (set-charset-registry 'ascii "iso8859-1"))))))
62
63 ;;;;
64
65 (defvar mule-x-win-initted nil)
66
67 (defun init-mule-x-win ()
68 "Initialize X Windows for MULE at startup. Don't call this."
69 (when (not mule-x-win-initted)
70 (define-specifier-tag 'mule-fonts
71 (lambda (device) (eq 'x (device-type device))))
72
73 (set-face-font
74 'default
75 '("-*-fixed-medium-r-*--16-*-iso8859-1"
76 "-*-fixed-medium-r-*--*-iso8859-1"
77 "-*-fixed-medium-r-*--*-iso8859-2"
78 "-*-fixed-medium-r-*--*-iso8859-3"
79 "-*-fixed-medium-r-*--*-iso8859-4"
80 "-*-fixed-medium-r-*--*-iso8859-7"
81 "-*-fixed-medium-r-*--*-iso8859-8"
82 "-*-fixed-medium-r-*--*-iso8859-5"
83 "-*-fixed-medium-r-*--*-iso8859-9"
84
85 ;; Following 3 fonts proposed by Teruhiko.Kurosaka@Japan.eng.sun
86 "-sun-gothic-medium-r-normal--14-120-75-75-c-60-jisx0201.1976-0"
87 "-sun-gothic-medium-r-normal--14-120-75-75-c-120-jisx0208.1983-0"
88 "-wadalab-gothic-medium-r-normal--14-120-75-75-c-120-jisx0212.1990-0"
89 ;; Other Japanese fonts
90 "-*-fixed-medium-r-*--*-jisx0201.1976-*"
91 "-*-fixed-medium-r-*--*-jisx0208.1983-*"
92 "-*-fixed-medium-r-*--*-jisx0212*-*"
93
94 ;; Chinese fonts
95 "-*-*-medium-r-*--*-gb2312.1980-*"
96
97 ;; Use One font specification for CNS chinese
98 ;; Too many variations in font naming
99 "-*-fixed-medium-r-*--*-cns11643*-*"
100 ;; "-*-fixed-medium-r-*--*-cns11643*2"
101 ;; "-*-fixed-medium-r-*--*-cns11643*3"
102 ;; "-*-fixed-medium-r-*--*-cns11643*4"
103 ;; "-*-fixed-medium-r-*--*-cns11643.5-0"
104 ;; "-*-fixed-medium-r-*--*-cns11643.6-0"
105 ;; "-*-fixed-medium-r-*--*-cns11643.7-0"
106
107 "-*-fixed-medium-r-*--*-big5*-*"
108 "-*-fixed-medium-r-*--*-sisheng_cwnn-0"
109
110 ;; Other fonts
111
112 ;; "-*-fixed-medium-r-*--*-viscii1.1-1"
113
114 ;; "-*-fixed-medium-r-*--*-mulearabic-0"
115 ;; "-*-fixed-medium-r-*--*-mulearabic-1"
116 ;; "-*-fixed-medium-r-*--*-mulearabic-2"
117
118 ;; "-*-fixed-medium-r-*--*-muleipa-1"
119 ;; "-*-fixed-medium-r-*--*-ethio-*"
120
121 "-*-mincho-medium-r-*--*-ksc5601.1987-*" ; Korean
122 "-*-fixed-medium-r-*--*-tis620.2529-1" ; Thai
123 )
124 'global '(mule-fonts) 'append)
125
126 (setq mule-x-win-initted t)))