Mercurial > emacs

changeset 48183:06be0e8df068

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-buffer-file-coding-system): Call ucs-set-table-for-input.
author Dave Love <fx@gnu.org>
date Wed, 06 Nov 2002 23:34:58 +0000
parents 9474e269efd1
children a3de797dd9f6
files lisp/international/mule.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Wed Nov 06 23:31:21 2002 +0000
+++ b/lisp/international/mule.el	Wed Nov 06 23:34:58 2002 +0000
@@ -868,8 +868,8 @@
 
   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 @@
       (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))