Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 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 | efd4275c55d4 |
| children | e7dfcab35c8b |
comparison
equal
deleted
inserted
replaced
| 23525:7462da3c79cb | 23526:f47eb2d1375c |
|---|---|
| 1327 | 1327 |
| 1328 (defsubst get-charset-property (charset propname) | 1328 (defsubst get-charset-property (charset propname) |
| 1329 "Return the value of CHARSET's PROPNAME property. | 1329 "Return the value of CHARSET's PROPNAME property. |
| 1330 This is the last value stored with | 1330 This is the last value stored with |
| 1331 (put-charset-property CHARSET PROPNAME VALUE)." | 1331 (put-charset-property CHARSET PROPNAME VALUE)." |
| 1332 (plist-get (charset-plist charset) propname)) | 1332 (or (eq charset 'composition) |
| 1333 (plist-get (charset-plist charset) propname))) | |
| 1333 | 1334 |
| 1334 (defsubst put-charset-property (charset propname value) | 1335 (defsubst put-charset-property (charset propname value) |
| 1335 "Store CHARSETS's PROPNAME property with value VALUE. | 1336 "Store CHARSETS's PROPNAME property with value VALUE. |
| 1336 It can be retrieved with `(get-charset-property CHARSET PROPNAME)'." | 1337 It can be retrieved with `(get-charset-property CHARSET PROPNAME)'." |
| 1337 (set-charset-plist charset | 1338 (or (eq charset 'composition) |
| 1338 (plist-put (charset-plist charset) propname value))) | 1339 (set-charset-plist charset |
| 1340 (plist-put (charset-plist charset) propname value)))) | |
| 1339 | 1341 |
| 1340 ;;; Character code property | 1342 ;;; Character code property |
| 1341 (put 'char-code-property-table 'char-table-extra-slots 0) | 1343 (put 'char-code-property-table 'char-table-extra-slots 0) |
| 1342 | 1344 |
| 1343 (defvar char-code-property-table | 1345 (defvar char-code-property-table |