Mercurial > emacs
changeset 67559:da1c54077c04
(describe-text-properties): Replace buffer name "*Help-2*" with "*Help*<2>".
(describe-char): Add functions print-help-return-message,
toggle-read-only. Use help-setup-xref with nil to not store
describe-char in help-xref-stack. Use help-make-xrefs to
make [back] button.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Wed, 14 Dec 2005 07:44:20 +0000 |
| parents | 3e8f8913897e |
| children | 2d2062823ea5 |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Wed Dec 14 07:42:20 2005 +0000 +++ b/lisp/descr-text.el Wed Dec 14 07:44:20 2005 +0000 @@ -160,7 +160,7 @@ (let ((buffer (current-buffer)) (target-buffer "*Help*")) (when (eq buffer (get-buffer target-buffer)) - (setq target-buffer "*Help-2*")) + (setq target-buffer "*Help*<2>")) (save-excursion (with-output-to-temp-buffer target-buffer (set-buffer standard-output) @@ -625,6 +625,8 @@ item-list))) (with-output-to-temp-buffer "*Help*" (with-current-buffer standard-output + (let ((help-xref-following t)) + (help-setup-xref nil nil)) (set-buffer-multibyte multibyte-p) (let ((formatter (format "%%%ds:" max-width))) (dolist (elt item-list) @@ -727,7 +729,10 @@ "the meaning of the rule.\n")) (if text-props-desc (insert text-props-desc)) - (describe-text-mode))))) + (describe-text-mode) + (toggle-read-only 1) + (help-make-xrefs (current-buffer)) + (print-help-return-message))))) (defalias 'describe-char-after 'describe-char) (make-obsolete 'describe-char-after 'describe-char "22.1")