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 |