From 0ea0b6d29b0d26c7ab032aa7dbe007af8b6b7796 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 6 Nov 2002 23:34:58 +0000 Subject: [PATCH] (set-buffer-file-coding-system): Call ucs-set-table-for-input. --- lisp/international/mule.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 4e45baf0741..e425d8b8bfd 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -868,8 +868,8 @@ following properties are recognized: o composition (meaningful only when TYPE is 0 or 2) - If the value is non-nil, the coding system preserves information of - composition. + If the value is non-nil, the coding system preserves composition + information. These properties are set in PLIST, a property list. This function also sets properties `coding-category' and `alias-coding-systems' @@ -1179,6 +1179,10 @@ don't want to mark the buffer modified, just set the variable (setq coding-system (merge-coding-systems coding-system buffer-file-coding-system))) (setq buffer-file-coding-system coding-system) + ;; This is in case of an explicit call. Normally, `normal-mode' and + ;; `set-buffer-major-mode-hook' take care of setting the table. + (if (fboundp 'ucs-set-table-for-input) ; don't lose when building + (ucs-set-table-for-input)) (set-buffer-modified-p t) (force-mode-line-update)) -- 2.39.2