From 8a97200fb4fd0511ca15a2a4d315e6fb1bc82437 Mon Sep 17 00:00:00 2001 From: Dave Love 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.2