Mercurial > emacs

comparison lisp/international/mule.el @ 19749:dec0b076a378

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-buffer-file-coding-system): Improve prompt.
author Richard M. Stallman <rms@gnu.org>
date Thu, 04 Sep 1997 05:57:44 +0000
parents f523227a99ab
children ad4989a73bf0
comparison
equal deleted inserted replaced
19748:06cbad2e806a 19749:dec0b076a378
510 If the buffer's previous file coding-system value specifies end-of-line 510 If the buffer's previous file coding-system value specifies end-of-line
511 conversion, and CODING-SYSTEM does not specify one, CODING-SYSTEM is 511 conversion, and CODING-SYSTEM does not specify one, CODING-SYSTEM is
512 merged with the already-specified end-of-line conversion. 512 merged with the already-specified end-of-line conversion.
513 However, if the optional prefix argument FORCE is non-nil, 513 However, if the optional prefix argument FORCE is non-nil,
514 them CODING-SYSTEM is used exactly as specified." 514 them CODING-SYSTEM is used exactly as specified."
515 (interactive "zBuffer-file-coding-system: \nP") 515 (interactive "zCoding system for visited file: \nP")
516 (check-coding-system coding-system) 516 (check-coding-system coding-system)
517 (if (null force) 517 (if (null force)
518 (let ((x (coding-system-eol-type buffer-file-coding-system)) 518 (let ((x (coding-system-eol-type buffer-file-coding-system))
519 (y (coding-system-eol-type coding-system))) 519 (y (coding-system-eol-type coding-system)))
520 (if (and (numberp x) (>= x 0) (<= x 2) (vectorp y)) 520 (if (and (numberp x) (>= x 0) (<= x 2) (vectorp y))