Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 89223:0e24243cf8f9
(set-locale-environment): Delete superfluous ')'s at the tail.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 16 Oct 2002 02:18:25 +0000 |
| parents | 6db507e76b10 |
| children | edaadc63a74d |
comparison
equal
deleted
inserted
replaced
| 89222:5db2e48ffbcb | 89223:0e24243cf8f9 |
|---|---|
| 2049 (let ((codeset (langinfo 'codeset)) | 2049 (let ((codeset (langinfo 'codeset)) |
| 2050 (coding-system (car (coding-system-priority-list)))) | 2050 (coding-system (car (coding-system-priority-list)))) |
| 2051 (when codeset | 2051 (when codeset |
| 2052 (unless (locale-charset-match-p (symbol-name coding-system) | 2052 (unless (locale-charset-match-p (symbol-name coding-system) |
| 2053 (langinfo 'codeset)) | 2053 (langinfo 'codeset)) |
| 2054 (message "\ | 2054 (message "Warning: Default coding system `%s' doesn't agree with |
| 2055 Warning: Default coding system `%s' doesn't agree with | |
| 2056 the system code set `%s' for this locale." coding-system codeset)))))))) | 2055 the system code set `%s' for this locale." coding-system codeset)))))))) |
| 2057 | 2056 |
| 2058 ;;; Character code property | 2057 ;;; Character code property |
| 2059 (put 'char-code-property-table 'char-table-extra-slots 0) | 2058 (put 'char-code-property-table 'char-table-extra-slots 0) |
| 2060 | 2059 |