From: Dave Love <fx@gnu.org>
Date: Thu, 11 Sep 2003 09:25:50 +0000 (+0000)
Subject: (list-charset-chars): Set buffer file
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1850
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a97200fb4fd0511ca15a2a4d315e6fb1bc82437;p=emacs.git

(list-charset-chars): Set buffer file
coding system.
---

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index b4a1d3d4cd1..9aed8213e39 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -281,6 +281,10 @@ detailed meanings of these arguments."
   (interactive (list (read-charset "Character set: ")))
   (with-output-to-temp-buffer "*Character List*"
     (with-current-buffer standard-output
+      (if (coding-system-p charset)
+	  ;; Useful to be able to do C-u C-x = to find file code, for
+	  ;; instance:
+	  (set-buffer-file-coding-system charset))
       (setq mode-line-format (copy-sequence mode-line-format))
       (let ((slot (memq 'mode-line-buffer-identification mode-line-format)))
 	(if slot