From c3034e8418f58546058aa79717ab04dc3c1d814c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 3 Nov 2001 00:28:22 +0000 Subject: [PATCH] (describe-language-environment): Use `help-buffer' and move `help-setup-xref' to beginning. --- lisp/international/mule-cmds.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 95c252d380e..96acd03ae44 100644 --- 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))))))))) ;;; Locales. -- 2.39.5