diff options
| author | Stefan Monnier <[email protected]> | 2001-11-03 00:28:22 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2001-11-03 00:28:22 +0000 |
| commit | c3034e8418f58546058aa79717ab04dc3c1d814c (patch) | |
| tree | 9d837bec6b60752e6a54d043f5dd8ac3d535db49 /lisp/international/mule-cmds.el | |
| parent | 55140940d4c9fe76abec60e74d7c4019a32063bc (diff) | |
(describe-language-environment):
Use `help-buffer' and move `help-setup-xref' to beginning.
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 95c252d380..96acd03ae4 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. |