diff lisp/simple.el @ 104664:50fdf250e26b

* mh-e/mh-comp.el (mh-send-letter): * mail/sendmail.el (mail-recover-1): * international/mule-diag.el (describe-current-coding-system-briefly) (describe-current-coding-system): * international/mule-cmds.el (select-safe-coding-system) (select-message-coding-system) (set-language-environment-coding-systems, set-locale-environment): * hexl.el (hexl-insert-multibyte-char): * dos-w32.el (find-buffer-file-type-coding-system): * simple.el (what-cursor-position): Replace uses of default-buffer-file-coding-system with (default-value 'buffer-file-coding-system).
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 28 Aug 2009 04:21:14 +0000
parents 2ef67426b537
children d7e64be6966a
line wrap: on
line diff
--- a/lisp/simple.el	Fri Aug 28 04:12:49 2009 +0000
+++ b/lisp/simple.el	Fri Aug 28 04:21:14 2009 +0000
@@ -999,7 +999,7 @@
 	    encoded encoding-msg display-prop under-display)
 	(if (or (not coding)
 		(eq (coding-system-type coding) t))
-	    (setq coding default-buffer-file-coding-system))
+	    (setq coding (default-value 'buffer-file-coding-system)))
 	(if (eq (char-charset char) 'eight-bit)
 	    (setq encoding-msg
 		  (format "(%d, #o%o, #x%x, raw-byte)" char char char))