Mercurial > hg > xemacs-beta

diff lisp/mule/mule-debug.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents a145efe76779
children e45d5e7c476e
line wrap: on
line diff
--- a/lisp/mule/mule-debug.el	Mon Aug 13 09:18:41 2007 +0200
+++ b/lisp/mule/mule-debug.el	Mon Aug 13 09:19:45 2007 +0200
@@ -142,16 +142,16 @@
 	eol-type)
     (message
      "current: [FKDPp=%c%c%c%c%c%c%c%c] default: [FPp=%c%c%c%c%c%c]"
-     (coding-system-mnemonic file-coding-system)
-     (coding-system-eol-mnemonic file-coding-system)
+     (coding-system-mnemonic buffer-file-coding-system)
+     (coding-system-eol-mnemonic buffer-file-coding-system)
      (coding-system-mnemonic keyboard-coding-system)
      (coding-system-mnemonic terminal-coding-system)
      (coding-system-mnemonic (car cs))
      (coding-system-eol-mnemonic (car cs))
      (coding-system-mnemonic (cdr cs))
      (coding-system-eol-mnemonic (cdr cs))
-     (coding-system-mnemonic (default-value 'file-coding-system))
-     (coding-system-eol-mnemonic (default-value 'file-coding-system))
+     (coding-system-mnemonic (default-value 'buffer-file-coding-system))
+     (coding-system-eol-mnemonic (default-value 'buffer-file-coding-system))
      (coding-system-mnemonic (car default-process-coding-system))
      (coding-system-eol-mnemonic (car default-process-coding-system))
      (coding-system-mnemonic (cdr default-process-coding-system))
@@ -243,8 +243,8 @@
     (if (null all)
 	(let ((cs (and (fboundp 'process-coding-system)
 		       (process-coding-system))))
-	  (princ "Current:\n  file-coding-system")
-	  (princ-coding-system file-coding-system)
+	  (princ "Current:\n  buffer-file-coding-system")
+	  (princ-coding-system buffer-file-coding-system)
 	  (princ "  keyboard-coding-system")
 	  (princ-coding-system keyboard-coding-system)
 	  (princ "  terminal-coding-system")
@@ -254,14 +254,14 @@
 	    (princ-coding-system (car cs))
 	    (princ "  process-coding-system (output)")
 	    (princ-coding-system (cdr cs)))
-	  (princ "Default:\n  file-coding-system")
-	  (princ-coding-system (default-value 'file-coding-system))
+	  (princ "Default:\n  buffer-file-coding-system")
+	  (princ-coding-system (default-value 'buffer-file-coding-system))
 	  (princ "  process-coding-system (input)")
 	  (princ-coding-system (car default-process-coding-system))
 	  (princ "  process-coding-system (output)")
 	  (princ-coding-system (cdr default-process-coding-system))
-	  (princ "Others:\n  file-coding-system-for-read")
-	  (princ-coding-system file-coding-system-for-read)
+	  (princ "Others:\n  buffer-file-coding-system-for-read")
+	  (princ-coding-system buffer-file-coding-system-for-read)
 	  (princ "Coding categories by priority:\n")
 	  (princ (coding-priority-list)))
       (princ "########################\n")