Mercurial > emacs
changeset 17175:3e54eb2d2a57
(make-char): Documented.
(charset-plist): Return quoted list even if CHARSET is
supplied by symbol.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 18 Mar 1997 23:16:27 +0000 |
| parents | 9c1191812679 |
| children | 12e0db4fd511 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Tue Mar 18 23:16:27 1997 +0000 +++ b/lisp/international/mule.el Tue Mar 18 23:16:27 1997 +0000 @@ -184,13 +184,19 @@ (defmacro charset-plist (charset) (if (quoted-symbol-p charset) - (aref (charset-info (nth 1 charset)) 14) + `(aref ,(charset-info (nth 1 charset)) 14) `(aref (charset-info ,charset) 14))) (defun set-charset-plist (charset plist) (aset (charset-info charset) 14 plist)) (defmacro make-char (charset &optional c1 c2) + "Return a character of CHARSET and position-codes CODE1 and CODE2. +CODE1 and CODE2 are optional, but if you don't supply + sufficient position-codes, return a generic character which stands for +all characters or group of characters in the character sets. +A generic character can be an argument of `modify-syntax-entry' and +`modify-category-entry'." (if (quoted-symbol-p charset) `(make-char-internal ,(charset-id (nth 1 charset)) ,c1 ,c2) `(make-char-internal (charset-id ,charset) ,c1 ,c2)))