Mercurial > emacs
comparison lisp/international/mule.el @ 46742:8f29b98466a8
(safe-chars): Put `char-table-extra-slots' property with value 0.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 30 Jul 2002 06:34:28 +0000 |
| parents | bd4c1ae5d8e7 |
| children | 80075b7b7612 |
comparison
equal
deleted
inserted
replaced
| 46741:b00b63ab095b | 46742:8f29b98466a8 |
|---|---|
| 1097 (cons (list (car flags) t) (cdr flags))) | 1097 (cons (list (car flags) t) (cdr flags))) |
| 1098 properties)))) | 1098 properties)))) |
| 1099 | 1099 |
| 1100 coding-system) | 1100 coding-system) |
| 1101 | 1101 |
| 1102 (put 'safe-chars 'char-table-extra-slots 0) | |
| 1103 | |
| 1102 (defun define-coding-system-alias (alias coding-system) | 1104 (defun define-coding-system-alias (alias coding-system) |
| 1103 "Define ALIAS as an alias for coding system CODING-SYSTEM." | 1105 "Define ALIAS as an alias for coding system CODING-SYSTEM." |
| 1104 (put alias 'coding-system (coding-system-spec coding-system)) | 1106 (put alias 'coding-system (coding-system-spec coding-system)) |
| 1105 (add-to-coding-system-list alias) | 1107 (add-to-coding-system-list alias) |
| 1106 (setq coding-system-alist (cons (list (symbol-name alias)) | 1108 (setq coding-system-alist (cons (list (symbol-name alias)) |