Commit c3034e84 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(describe-language-environment):

Use `help-buffer' and move `help-setup-xref' to beginning.
parent 55140940
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment