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