Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(make-char): Documented.

Browse source 
(charset-plist): Return quoted list even if CHARSET is
	supplied by symbol.
This commit is contained in:
Kenichi Handa 1997-03-18 23:16:27 +00:00
parent ea3fb7d263
commit f98e279785
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/international/mule.el
View file

@ -184,13 +184,19 @@ PLIST (property list) may contain any type of information a user
(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)))