Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 03:17:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(mule-diag): Add save-excursion calls.

Browse source
This commit is contained in:
Richard M. Stallman 1997-08-26 17:33:55 +00:00
parent ef2300a746
commit d871aa9bb1
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/international/mule-diag.el
View file

@ -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))))