From 8a97200fb4fd0511ca15a2a4d315e6fb1bc82437 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Thu, 11 Sep 2003 09:25:50 +0000
Subject: [PATCH] (list-charset-chars): Set buffer file coding system.
---
lisp/international/mule-diag.el | 4 ++++
1 file changed, 4 insertions(+)
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
--
2.39.5