# HG changeset patch # User Dave Love # Date 1036625698 0 # Node ID 06be0e8df0680ff0586455d66b34546a4eaff777 # Parent 9474e269efd1803c789872dd0b295dda999b72e8 (set-buffer-file-coding-system): Call ucs-set-table-for-input. diff -r 9474e269efd1 -r 06be0e8df068 lisp/international/mule.el --- 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))