Mercurial > emacs

comparison lisp/international/mule.el @ 26687:c4fb0ef75056

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(charsetp): Fix typo in docstring.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 02 Dec 1999 14:34:59 +0000
parents 2473e4ca59b3
children 256531a93e10
comparison
equal deleted inserted replaced
26686:b12db1ba4a24 26687:c4fb0ef75056
108 (let ((vector (get (car-safe (cdr obj)) 'charset))) 108 (let ((vector (get (car-safe (cdr obj)) 'charset)))
109 (and (vectorp vector) 109 (and (vectorp vector)
110 (< (aref vector 0) 160))))) 110 (< (aref vector 0) 160)))))
111 111
112 (defsubst charsetp (object) 112 (defsubst charsetp (object)
113 "T is OBJECT is a charset." 113 "T if OBJECT is a charset."
114 (and (symbolp object) (vectorp (get object 'charset)))) 114 (and (symbolp object) (vectorp (get object 'charset))))
115 115
116 (defsubst charset-info (charset) 116 (defsubst charset-info (charset)
117 "Return a vector of information of CHARSET. 117 "Return a vector of information of CHARSET.
118 The elements of the vector are: 118 The elements of the vector are: