From d871aa9bb11e22f2340662f586ffb09c39afffeb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Aug 1997 17:33:55 +0000 Subject: [PATCH] (mule-diag): Add save-excursion calls. --- lisp/international/mule-diag.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 02d3c0cf154..da7d3ffe1a2 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -711,24 +711,24 @@ system)." (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)))) -- 2.11.4.GIT