Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 53262:b18fd10266de
(set-default-coding-systems): Call
ucs-set-table-for-input for all buffers that don't have local
value of buffer-file-coding-system.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 24 Dec 2003 02:08:54 +0000 |
| parents | c5ff40827243 |
| children | fea694690fc7 |
comparison
equal
deleted
inserted
replaced
| 53261:cfde5f632759 | 53262:b18fd10266de |
|---|---|
| 319 o default value used as `file-name-coding-system' for converting file names. | 319 o default value used as `file-name-coding-system' for converting file names. |
| 320 o default value for the command `set-terminal-coding-system' (not on MSDOS) | 320 o default value for the command `set-terminal-coding-system' (not on MSDOS) |
| 321 o default value for the command `set-keyboard-coding-system'." | 321 o default value for the command `set-keyboard-coding-system'." |
| 322 (check-coding-system coding-system) | 322 (check-coding-system coding-system) |
| 323 (setq-default buffer-file-coding-system coding-system) | 323 (setq-default buffer-file-coding-system coding-system) |
| 324 (if (fboundp 'ucs-set-table-for-input) | |
| 325 (dolist (buffer (buffer-list)) | |
| 326 (or (local-variable-p 'buffer-file-coding-system buffer) | |
| 327 (ucs-set-table-for-input buffer)))) | |
| 328 | |
| 324 (if default-enable-multibyte-characters | 329 (if default-enable-multibyte-characters |
| 325 (setq default-file-name-coding-system coding-system)) | 330 (setq default-file-name-coding-system coding-system)) |
| 326 ;; If coding-system is nil, honor that on MS-DOS as well, so | 331 ;; If coding-system is nil, honor that on MS-DOS as well, so |
| 327 ;; that they could reset the terminal coding system. | 332 ;; that they could reset the terminal coding system. |
| 328 (unless (and (eq window-system 'pc) coding-system) | 333 (unless (and (eq window-system 'pc) coding-system) |