Mercurial > emacs

changeset 89498:bc83bb07e632

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-charset-chars): Set buffer file coding system.
author Dave Love <fx@gnu.org>
date Thu, 11 Sep 2003 09:25:50 +0000
parents 76c9d23be7a1
children 47e2e534b750
files lisp/international/mule-diag.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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