From: Kenichi Handa <handa@m17n.org>
Date: Sat, 10 Jun 2000 02:17:40 +0000 (+0000)
Subject: (set-buffer-file-coding-system): If one of undecided-XXX is specified,
X-Git-Tag: emacs-pretest-21.0.90~3415
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b839fdcc45b28f490171528b9634a205ef0c9366;p=emacs.git

(set-buffer-file-coding-system): If one of undecided-XXX is specified,
change only EOL conversion.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index bd9e75220e6..92c29fc78f1 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -801,8 +801,13 @@ use \\[list-coding-systems].
 If the buffer's previous file coding-system value specifies end-of-line
 conversion, and CODING-SYSTEM does not specify one, CODING-SYSTEM is
 merged with the already-specified end-of-line conversion.
-However, if the optional prefix argument FORCE is non-nil,
-then CODING-SYSTEM is used exactly as specified.
+
+If the buffer's previous file coding-system value specifies text
+conversion, and CODING-SYSTEM does not specify one, CODING-SYSTEM is
+merged with the already-specified text conversion.
+
+However, if the optional prefix argument FORCE is non-nil, then
+CODING-SYSTEM is used exactly as specified.
 
 This marks the buffer modified so that the succeeding \\[save-buffer]
 surely saves the buffer with CODING-SYSTEM.  From a program, if you
@@ -810,11 +815,15 @@ don't want to mark the buffer modified, just set the variable
 `buffer-file-coding-system' directly."
   (interactive "zCoding system for visited file (default, nil): \nP")
   (check-coding-system coding-system)
-  (if (null force)
+  (if (and buffer-file-coding-system (null force))
       (let ((x (coding-system-eol-type buffer-file-coding-system))
 	    (y (coding-system-eol-type coding-system)))
 	(if (and (numberp x) (>= x 0) (<= x 2) (vectorp y))
-	    (setq coding-system (aref y x)))))
+	    (setq coding-system (aref y x))
+	  (if (and (eq (coding-system-base coding-system) 'undecided)
+		   (numberp y))
+	      (setq coding-system (coding-system-change-eol-conversion
+				   buffer-file-coding-system y))))))
   (setq buffer-file-coding-system coding-system)
   (set-buffer-modified-p t)
   (force-mode-line-update))