Mercurial > emacs
comparison lisp/international/mule.el @ 29575:ab979e3b519a
(set-buffer-file-coding-system): If CODING-SYSTEM is nil, set
buffer-file-coding-system to nil unconditionally.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 12 Jun 2000 00:04:43 +0000 |
parents | 6f22d585904b |
children | 703433352fc4 |
comparison
equal
deleted
inserted
replaced
29574:a68f208f3dba | 29575:ab979e3b519a |
---|---|
813 surely saves the buffer with CODING-SYSTEM. From a program, if you | 813 surely saves the buffer with CODING-SYSTEM. From a program, if you |
814 don't want to mark the buffer modified, just set the variable | 814 don't want to mark the buffer modified, just set the variable |
815 `buffer-file-coding-system' directly." | 815 `buffer-file-coding-system' directly." |
816 (interactive "zCoding system for visited file (default, nil): \nP") | 816 (interactive "zCoding system for visited file (default, nil): \nP") |
817 (check-coding-system coding-system) | 817 (check-coding-system coding-system) |
818 (if (and buffer-file-coding-system (null force)) | 818 (if (and coding-system buffer-file-coding-system (null force)) |
819 (let ((x (coding-system-eol-type buffer-file-coding-system)) | 819 (let ((x (coding-system-eol-type buffer-file-coding-system)) |
820 (y (coding-system-eol-type coding-system))) | 820 (y (coding-system-eol-type coding-system))) |
821 (if (and (numberp x) (>= x 0) (<= x 2) (vectorp y)) | 821 (if (and (numberp x) (>= x 0) (<= x 2) (vectorp y)) |
822 (setq coding-system (aref y x)) | 822 (setq coding-system (aref y x)) |
823 (if (and (eq (coding-system-base coding-system) 'undecided) | 823 (if (and (eq (coding-system-base coding-system) 'undecided) |