diff options
| author | Juri Linkov <juri@jurta.org> | 2005-12-14 07:44:20 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2005-12-14 07:44:20 +0000 |
| commit | e217c04eafeb777523fd5ec641019408fab89f2a (patch) | |
| tree | 57c96c8bb3c37efd5d4dd9b0b8c2856b4c71c1f1 /lisp/descr-text.el | |
| parent | cd2768dd4c48dfaa3a04a0d3b3dcd7589ed81b79 (diff) | |
(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.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index f646a470ef4..a75e227d2b0 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -160,7 +160,7 @@ otherwise." (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 @@ as well as widgets, buttons, overlays, and text properties." 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 @@ as well as widgets, buttons, overlays, and text properties." "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") |