Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-charset.el @ 359:8e84bee8ddd0 r21-1-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-9
author cvs
date Mon, 13 Aug 2007 10:57:55 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
358:fed6e0f6a03a 359:8e84bee8ddd0
114 "Return the number of display columns per character of CHARSET. 114 "Return the number of display columns per character of CHARSET.
115 This only applies to TTY mode (under X, the actual display width can 115 This only applies to TTY mode (under X, the actual display width can
116 be automatically determined)." 116 be automatically determined)."
117 (charset-property charset 'columns)) 117 (charset-property charset 'columns))
118 118
119 (defun charset-width (charset)
120 "Return the number of display columns per character of CHARSET.
121 This only applies to TTY mode (under X, the actual display width can
122 be automatically determined)."
123 (charset-property charset 'columns))
124
119 (defun charset-direction (charset) 125 (defun charset-direction (charset)
120 "Return the display direction (`l2r' or `r2l') of CHARSET." 126 "Return the display direction (`l2r' or `r2l') of CHARSET."
121 (charset-property charset 'direction)) 127 (charset-property charset 'direction))
122 128
123 (defun charset-registry (charset) 129 (defun charset-registry (charset)
129 (defun charset-ccl-program (charset) 135 (defun charset-ccl-program (charset)
130 "Return the CCL program of CHARSET. 136 "Return the CCL program of CHARSET.
131 See `make-charset'." 137 See `make-charset'."
132 (charset-property charset 'ccl-program)) 138 (charset-property charset 'ccl-program))
133 139
140 (defun charset-bytes (charset)
141 "Useless in XEmacs, returns 1."
142 1)
143
134 ;;;; Define setf methods for all settable Charset properties 144 ;;;; Define setf methods for all settable Charset properties
135 145
136 (defsetf charset-registry set-charset-registry) 146 (defsetf charset-registry set-charset-registry)
137 (defsetf charset-ccl-program set-charset-ccl-program) 147 (defsetf charset-ccl-program set-charset-ccl-program)