# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1063272350 0
# Node ID bc83bb07e632da0ff0e514fdf410bc7ff4d8b186
# Parent  76c9d23be7a1ed590309002992e4fec012b59263
(list-charset-chars): Set buffer file
coding system.

diff -r 76c9d23be7a1 -r bc83bb07e632 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Thu Sep 11 09:24:56 2003 +0000
+++ b/lisp/international/mule-diag.el	Thu Sep 11 09:25:50 2003 +0000
@@ -281,6 +281,10 @@
   (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