Mercurial > emacs
changeset 40666:84cd0f5441e2
(describe-language-environment):
Use `help-buffer' and move `help-setup-xref' to beginning.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 03 Nov 2001 00:28:22 +0000 |
| parents | 1d907a03e658 |
| children | 589781f0ee38 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.