From: Kenichi Handa <handa@m17n.org>
Date: Tue, 18 Mar 1997 23:16:27 +0000 (+0000)
Subject: (make-char): Documented.
X-Git-Tag: emacs-20.1~2770
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f98e279785ef095a98f9bc2664e99b26e4b7dfa7;p=emacs.git

(make-char): Documented.
	(charset-plist): Return quoted list even if CHARSET is
	supplied by symbol.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 7e40f1ad056..53e0ab2d90d 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -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)))