# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1004747302 0
# Node ID 84cd0f5441e236234e533555485ea9e705125204
# Parent  1d907a03e6587a1b50ec89519c7b612bc510e2a4
(describe-language-environment):
Use `help-buffer' and move `help-setup-xref' to beginning.

diff -r 1d907a03e658 -r 84cd0f5441e2 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Sat Nov 03 00:23:25 2001 +0000
+++ b/lisp/international/mule-cmds.el	Sat Nov 03 00:28:22 2001 +0000
@@ -1570,7 +1570,9 @@
       (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 @@
 		    (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.