Mercurial > emacs

comparison lisp/international/mule.el @ 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 e2f230bb8acc
children cea25fa1abd9
comparison
equal deleted inserted replaced
48182:9474e269efd1 48183:06be0e8df068
866 In the former case, the integer value is a valid byte code. In the 866 In the former case, the integer value is a valid byte code. In the
867 latter case, the integers specify the range of valid byte codes. 867 latter case, the integers specify the range of valid byte codes.
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'
876 automatically. 876 automatically.
877 877
1177 (check-coding-system coding-system) 1177 (check-coding-system coding-system)
1178 (if (and coding-system buffer-file-coding-system (null force)) 1178 (if (and coding-system buffer-file-coding-system (null force))
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
1185 (defun revert-buffer-with-coding-system (coding-system &optional force) 1189 (defun revert-buffer-with-coding-system (coding-system &optional force)
1186 "Visit the current buffer's file again using coding system CODING-SYSTEM. 1190 "Visit the current buffer's file again using coding system CODING-SYSTEM.