diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-26 17:33:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-26 17:33:55 +0000 |
| commit | d871aa9bb11e22f2340662f586ffb09c39afffeb (patch) | |
| tree | 73e5252533c95e4e3cef8fbea80fc17b2b583998 | |
| parent | ef2300a746c017ace2ae5a98da09d26f4c74848c (diff) | |
| download | emacs-d871aa9bb11e22f2340662f586ffb09c39afffeb.tar.gz | |
(mule-diag): Add save-excursion calls.
| -rw-r--r-- | lisp/international/mule-diag.el | 8 |
1 files 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)))) |