Mercurial > emacs

changeset 19557:f0f3ffd3b852

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mule-diag): Add save-excursion calls.
author Richard M. Stallman <rms@gnu.org>
date Tue, 26 Aug 1997 17:33:55 +0000
parents b21c14f05753
children 56079fac4d24
files lisp/international/mule-diag.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Tue Aug 26 12:04:43 1997 +0000
+++ b/lisp/international/mule-diag.el	Tue Aug 26 17:33:55 1997 +0000
@@ -711,24 +711,24 @@
       (insert-buffer-substring "*Help*")
       (insert "\n")
       (if default-input-method
-	  (insert "Default input method: %s\n" default-input-method)
+	  (insert "Default input method: " default-input-method "\n")
 	(insert "No default input method is specified.\n"))
 
       (insert-section 4 "Coding systems")
       (save-excursion (list-coding-systems t))
       (insert-buffer-substring "*Help*")
-      (list-coding-categories)
+      (save-excursion (list-coding-categories))
       (insert-buffer-substring "*Help*")
       (insert "\n")
 
       (insert-section 5 "Character sets")
-      (list-character-sets t)
+      (save-excursion (list-character-sets t))
       (insert-buffer-substring "*Help*")
       (insert "\n")
 
       (when window-system
 	(insert-section 6 "Fontsets")
-	(list-fontsets t)
+	(save-excursion (list-fontsets t))
 	(insert-buffer-substring "*Help*"))
       (help-mode))))