(list-charset-chars): Set buffer file

coding system.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index b4a1d3d4cd1b3e6c218b21313feda27c4233ba0b..9aed8213e39a5d135635ea2c7ed65457102e2b9b 100644 (file)
--- 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