Mercurial > emacs
changeset 23526:f47eb2d1375c
(get-charset-property): If CHARSET is
composition, return nil.
(put-charset-property): If CHARSET is composition, do nothing.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 21 Oct 1998 11:50:56 +0000 |
| parents | 7462da3c79cb |
| children | 06e8c3b9deec |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Wed Oct 21 11:50:56 1998 +0000 +++ b/lisp/international/mule-cmds.el Wed Oct 21 11:50:56 1998 +0000 @@ -1329,13 +1329,15 @@ "Return the value of CHARSET's PROPNAME property. This is the last value stored with (put-charset-property CHARSET PROPNAME VALUE)." - (plist-get (charset-plist charset) propname)) + (or (eq charset 'composition) + (plist-get (charset-plist charset) propname))) (defsubst put-charset-property (charset propname value) "Store CHARSETS's PROPNAME property with value VALUE. It can be retrieved with `(get-charset-property CHARSET PROPNAME)'." - (set-charset-plist charset - (plist-put (charset-plist charset) propname value))) + (or (eq charset 'composition) + (set-charset-plist charset + (plist-put (charset-plist charset) propname value)))) ;;; Character code property (put 'char-code-property-table 'char-table-extra-slots 0)