Mercurial > emacs

comparison lisp/international/mule.el @ 29575:ab979e3b519a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)