From 9a0ed120587d90a16cea694ee25d1a962dabc0a1 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 24 Dec 2003 02:08:54 +0000 Subject: [PATCH] (set-default-coding-systems): Call ucs-set-table-for-input for all buffers that don't have local value of buffer-file-coding-system. --- lisp/international/mule-cmds.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index a9ed8299ad9..5e957d6b8ab 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -321,6 +321,11 @@ This also sets the following values: 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 -- 2.39.2