mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(describe-language-environment):

Browse Source 
Use `help-buffer' and move `help-setup-xref' to beginning.
This commit is contained in:
Stefan Monnier 2001-11-03 00:28:22 +00:00
parent 55140940d4
commit c3034e8418
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-cmds.el
View File

@ -1570,7 +1570,9 @@ of buffer-file-coding-system set by this function."
(setq language-name (symbol-name language-name)))
(let ((doc (get-language-info language-name 'documentation))
pos)
(with-output-to-temp-buffer "*Help*"
(help-setup-xref (list #'describe-language-environment language-name)
(interactive-p))
(with-output-to-temp-buffer (help-buffer)
(save-excursion
(set-buffer standard-output)
(insert language-name " language environment\n\n")
@ -1639,9 +1641,7 @@ of buffer-file-coding-system set by this function."
(insert " " (symbol-name (car aliases)))
(setq aliases (cdr aliases)))
(insert ")\n")))
(setq l (cdr l)))))
(help-setup-xref (list #'describe-language-environment language-name)
(interactive-p))))))
(setq l (cdr l)))))))))
;;; Locales.