Mercurial > emacs
changeset 53262:b18fd10266de
(set-default-coding-systems): Call
ucs-set-table-for-input for all buffers that don't have local
value of buffer-file-coding-system.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 24 Dec 2003 02:08:54 +0000 |
| parents | cfde5f632759 |
| children | a8d654e3dbcb |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Wed Dec 24 02:07:48 2003 +0000 +++ b/lisp/international/mule-cmds.el Wed Dec 24 02:08:54 2003 +0000 @@ -321,6 +321,11 @@ o default value for the command `set-keyboard-coding-system'." (check-coding-system coding-system) (setq-default buffer-file-coding-system coding-system) + (if (fboundp 'ucs-set-table-for-input) + (dolist (buffer (buffer-list)) + (or (local-variable-p 'buffer-file-coding-system buffer) + (ucs-set-table-for-input buffer)))) + (if default-enable-multibyte-characters (setq default-file-name-coding-system coding-system)) ;; If coding-system is nil, honor that on MS-DOS as well, so