Lines Matching defs:charset
112 (defsubst charset-quoted-standard-p (obj)
113 "Return t if OBJ is a quoted symbol, and is the name of a standard charset."
116 (let ((vector (get (car-safe (cdr obj)) 'charset)))
121 "Return t if OBJECT is a charset."
122 (and (symbolp object) (vectorp (get object 'charset))))
124 (defsubst charset-info (charset)
133 CHARSET-ID (integer) is the identification number of the charset.
135 the charset: one of 1, 2, 3, and 4.
137 the charset: 1 or 2.
139 WIDTH (integer) is the number of columns a character in the charset
142 charset when rendering. If 0, render from left to right, else
145 charset.
147 charset. All charsets of less than 0xA0 has the value 0.
149 corresponding ISO 2022 charset. If the charset is not assigned
154 If the charset is not assigned any final character, the value is -1.
155 REVERSE-CHARSET (integer) is the charset which differs only in
156 LEFT-TO-RIGHT value from the charset. If there's no such a
157 charset, the value is -1.
158 SHORT-NAME (string) is the short name to refer to the charset.
159 LONG-NAME (string) is the long name to refer to the charset
160 DESCRIPTION (string) is the description string of the charset.
162 want to put and get by functions `put-charset-property' and
163 `get-charset-property' respectively."
164 (get charset 'charset))
170 (defmacro charset-id (charset)
171 "Return charset identification number of CHARSET."
172 (if (charset-quoted-standard-p charset)
173 (aref (charset-info (nth 1 charset)) 0)
174 (list 'aref (list 'charset-info charset) 0)))
176 (defmacro charset-bytes (charset)
178 See the function `charset-info' for more detail."
179 (if (charset-quoted-standard-p charset)
180 (aref (charset-info (nth 1 charset)) 1)
181 (list 'aref (list 'charset-info charset) 1)))
183 (defmacro charset-dimension (charset)
185 See the function `charset-info' for more detail."
186 (if (charset-quoted-standard-p charset)
187 (aref (charset-info (nth 1 charset)) 2)
188 (list 'aref (list 'charset-info charset) 2)))
190 (defmacro charset-chars (charset)
192 See the function `charset-info' for more detail."
193 (if (charset-quoted-standard-p charset)
194 (aref (charset-info (nth 1 charset)) 3)
195 (list 'aref (list 'charset-info charset) 3)))
197 (defmacro charset-width (charset)
199 See the function `charset-info' for more detail."
200 (if (charset-quoted-standard-p charset)
201 (aref (charset-info (nth 1 charset)) 4)
202 (list 'aref (list 'charset-info charset) 4)))
204 (defmacro charset-direction (charset)
206 See the function `charset-info' for more detail."
207 (if (charset-quoted-standard-p charset)
208 (aref (charset-info (nth 1 charset)) 5)
209 (list 'aref (list 'charset-info charset) 5)))
211 (defmacro charset-iso-final-char (charset)
213 See the function `charset-info' for more detail."
214 (if (charset-quoted-standard-p charset)
215 (aref (charset-info (nth 1 charset)) 8)
216 (list 'aref (list 'charset-info charset) 8)))
218 (defmacro charset-iso-graphic-plane (charset)
220 See the function `charset-info' for more detail."
221 (if (charset-quoted-standard-p charset)
222 (aref (charset-info (nth 1 charset)) 9)
223 (list 'aref (list 'charset-info charset) 9)))
225 (defmacro charset-reverse-charset (charset)
226 "Return reverse charset of CHARSET.
227 See the function `charset-info' for more detail."
228 (if (charset-quoted-standard-p charset)
229 (aref (charset-info (nth 1 charset)) 10)
230 (list 'aref (list 'charset-info charset) 10)))
232 (defmacro charset-short-name (charset)
234 See the function `charset-info' for more detail."
235 (if (charset-quoted-standard-p charset)
236 (aref (charset-info (nth 1 charset)) 11)
237 (list 'aref (list 'charset-info charset) 11)))
239 (defmacro charset-long-name (charset)
241 See the function `charset-info' for more detail."
242 (if (charset-quoted-standard-p charset)
243 (aref (charset-info (nth 1 charset)) 12)
244 (list 'aref (list 'charset-info charset) 12)))
246 (defmacro charset-description (charset)
248 See the function `charset-info' for more detail."
249 (if (charset-quoted-standard-p charset)
250 (aref (charset-info (nth 1 charset)) 13)
251 (list 'aref (list 'charset-info charset) 13)))
253 (defmacro charset-plist (charset)
254 "Return list charset property of CHARSET.
255 See the function `charset-info' for more detail."
257 (if (charset-quoted-standard-p charset)
258 (charset-info (nth 1 charset))
259 (list 'charset-info charset))
262 (defun set-charset-plist (charset plist)
264 (aset (charset-info charset) 14 plist))
266 (defun make-char (charset &optional code1 code2)
282 would need to index the corresponding Emacs charset."
283 (make-char-internal (charset-id charset) code1 code2))
287 (let ((charset (nth 1 form)))
290 (cons (if (charset-quoted-standard-p charset)
291 (charset-id (nth 1 charset))
292 (list 'charset-id charset))
295 (defun charset-list ()
299 Now we have the variable `charset-list'."
300 charset-list)
367 (charset (car split))
377 charset (car split)))
378 (cond ((eq charset 'ascii)
380 ((eq charset 'latin-iso8859-1)
382 ((eq charset 'mule-unicode-0100-24ff)
385 ((eq charset 'mule-unicode-2500-33ff)
388 ((eq charset 'mule-unicode-e000-ffff)
391 ((eq charset 'eight-bit-control)
454 ;; o mime-charset
608 (defun map-charset-chars (func charset)
612 (let* ((dim (charset-dimension charset))
613 (chars (charset-chars charset))
619 (make-char charset start)
620 (make-char charset (+ start chars -1)))
623 (make-char charset (+ i start) start)
624 (make-char charset (+ i start) (+ start chars -1)))))))
675 (let ((g0 (plist-get props 'charset-g0))
676 (g1 (plist-get props 'charset-g1))
677 (g2 (plist-get props 'charset-g2))
678 (g3 (plist-get props 'charset-g3))
682 (plist-get props 'input-charset-conversion)))
685 (plist-get props 'output-charset-conversion)))
690 (plist-get props 'input-charset-conversion)))
693 (plist-get props 'output-charset-conversion)))
837 supported. Even if some charset is not in this list, it doesn't
838 mean that the charset can't be encoded in the coding system;
840 in the coding system won't be able to handle that charset.
842 o mime-charset
844 The value is a symbol whose name is the `MIME-charset' parameter of
849 A non-nil value means the `mime-charset' property names a charset
942 (let ((charset (car fl)))
945 (or (charsetp charset)
946 (and (consp charset)
947 (charsetp (car charset)))))
949 (if (charsetp charset)
950 (if (= i 1) (setq g1-designation charset))
951 (if (consp charset)
952 (let ((tail charset)
959 (error "Invalid charset: %s" elt)))
961 (setq g1-designation (car charset)))
962 (if charset
963 (if (eq charset t)
965 (error "Invalid charset: %s" charset)))))
966 (aset vec i charset))
989 (= (charset-dimension g1-designation) 2))
1030 (let (charset)
1035 (setq charset (car safe-charsets)
1037 (cond ((eq charset 'ascii)) ; just ignore
1038 ((eq charset 'eight-bit-control)
1043 ((eq charset 'eight-bit-graphic)
1049 (aset safe-chars (make-char charset) t))))
1115 (mime-charset (assq 'mime-charset properties)))
1119 (if mime-charset
1120 (setcdr mime-charset nil))
1491 (charset (nth 3 slot)))
1492 (if charset
1493 (cond ((charsetp charset)
1494 (aset table (make-char charset) slot))
1495 ((listp charset)
1496 (dolist (elt charset)
1498 ((char-table-p charset)
1501 charset))))))
2319 (re-search-forward "<meta\\s-+http-equiv=[\"']?content-type[\"']?\\s-+content=[\"']text/\\sw+;\\s-*charset=\\(.+?\\)[\"']" size t))