(describe-language-environment):

Use `help-buffer' and move `help-setup-xref' to beginning.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 95c252d380e13619456054dc9b266345e691c2ea..96acd03ae44d19986ffff5ba436200f9c7d77b75 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -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)))))))))
 \f
 ;;; Locales.