🚀 go-pugleaf

>>>>> Message-Id: <yosuwviqgl8x.fsf@jpl.org> の記事で、
>>>>> "山岡" == Katsumi Yamaoka <yamaoka@jpl.org>さま曰く...

山岡> いずれにしても、ふつうは太田さんのような現象は起きないと思います。

山岡> ごめんなさい、これは忘れて下さい。(^^;;)

すみません、私も勘違いしていました。

山岡> 以下のようなものを .emacs に仕込んでしまったらどうでしょうか?

山岡> (add-hook 'find-file-hooks
山岡> 	  (lambda ()
山岡> 	    (if (and (eq 'undecided-unix buffer-file-coding-system)
山岡> 		     default-buffer-file-coding-system)
山岡> 		(set-buffer-file-coding-system
山岡> 		 default-buffer-file-coding-system))))

これだと、 buffer-modified-p => t になってしまうのがあまりうれしくないの
で、こんなものを書いてみました。

(add-hook 'find-file-hooks
	  (lambda ()
	    (if (and (eq (coding-system-base buffer-file-coding-system)
			 'undecided)
		     default-buffer-file-coding-system)
		(let* ((coding-system (coding-system-base
				       default-buffer-file-coding-system))
		       (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 buffer-file-coding-system coding-system)
		  (force-mode-line-update)))))

;; set-buffer-file-coding-system() を展開したのと、 eol type を保存する
;; ようにしただけです。

山岡> これが弊害をもたらさないかどうか、今時点ではわかりませんが...。

同上。 ^^;;;;
-- 
鈴木圭一 / keiichi@nanap.org
PGP finger print (DH/DSS)
0B32 B37E 6DE9 3BC1 68A4  4089 7AAF 2B03 ECBD 614B
;; Nana7 は根本から見直さなければ、だめなような気がしてきた。