Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-charset.el @ 3659:98af8a976fc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-11-05 22:31:31 by aidan] Support specifying fonts for particular character sets in Mule; support translation to ISO 10646-1 for Mule character sets without an otherwise matching font; move to a vector of X11-charset-X11-registry instead of a regex for the charset-registry property.
author aidan
date Sun, 05 Nov 2006 22:31:46 +0000
parents 04a435415e1d
children 3131094eed8c
comparison
equal deleted inserted replaced
3658:0db1aaedbbef 3659:98af8a976fc3
104 Only left-to-right is currently implemented." 104 Only left-to-right is currently implemented."
105 (if (eq (charset-property charset 'direction) 'l2r) 105 (if (eq (charset-property charset 'direction) 'l2r)
106 0 106 0
107 1)) 107 1))
108 108
109 ;; Not in Emacs/Mule 109 ;; Not in GNU Emacs/Mule
110 (defun charset-registry (charset) 110 (defun charset-registry (charset)
111 "Return the registry of CHARSET. 111 "Return the registry of CHARSET.
112 This is a regular expression matching the registry field of fonts 112 This is a regular expression matching the registry field of fonts
113 that can display the characters in CHARSET." 113 that can display the characters in CHARSET."
114 (charset-property charset 'registry)) 114 (lwarn 'xintl 'warning
115 "charset-registry is obsolete--use charset-registries instead. ")
116 (when (charset-property charset 'registries)
117 (elt (charset-property charset 'registries) 0)))
118
119 (defun charset-registries (charset)
120 "Return the registries of CHARSET."
121 (charset-property charset 'registries))
122
123 (defun set-charset-registry (charset registry)
124 "Obsolete; use set-charset-registries instead. "
125 (check-argument-type 'stringp registry)
126 (check-argument-type 'charsetp (find-charset charset))
127 (unless (equal registry (regexp-quote registry))
128 (lwarn 'xintl 'warning
129 "Regexps no longer allowed for charset-registry. Treating %s%s"
130 registry " as a string."))
131 (set-charset-registries
132 charset
133 (apply 'vector registry (append (charset-registries charset) nil))))
115 134
116 (defun charset-ccl-program (charset) 135 (defun charset-ccl-program (charset)
117 "Return the CCL program of CHARSET. 136 "Return the CCL program of CHARSET.
118 See `make-charset'." 137 See `make-charset'."
119 (charset-property charset 'ccl-program)) 138 (charset-property charset 'ccl-program))