diff options
| -rw-r--r-- | lisp/international/mule.el | 8 |
1 files 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: | |||
| 868 | 868 | ||
| 869 | o composition (meaningful only when TYPE is 0 or 2) | 869 | o composition (meaningful only when TYPE is 0 or 2) |
| 870 | 870 | ||
| 871 | If the value is non-nil, the coding system preserves information of | 871 | If the value is non-nil, the coding system preserves composition |
| 872 | composition. | 872 | information. |
| 873 | 873 | ||
| 874 | These properties are set in PLIST, a property list. This function | 874 | These properties are set in PLIST, a property list. This function |
| 875 | also sets properties `coding-category' and `alias-coding-systems' | 875 | 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 | |||
| 1179 | (setq coding-system | 1179 | (setq coding-system |
| 1180 | (merge-coding-systems coding-system buffer-file-coding-system))) | 1180 | (merge-coding-systems coding-system buffer-file-coding-system))) |
| 1181 | (setq buffer-file-coding-system coding-system) | 1181 | (setq buffer-file-coding-system coding-system) |
| 1182 | ;; This is in case of an explicit call. Normally, `normal-mode' and | ||
| 1183 | ;; `set-buffer-major-mode-hook' take care of setting the table. | ||
| 1184 | (if (fboundp 'ucs-set-table-for-input) ; don't lose when building | ||
| 1185 | (ucs-set-table-for-input)) | ||
| 1182 | (set-buffer-modified-p t) | 1186 | (set-buffer-modified-p t) |
| 1183 | (force-mode-line-update)) | 1187 | (force-mode-line-update)) |
| 1184 | 1188 | ||