From e217c04eafeb777523fd5ec641019408fab89f2a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 14 Dec 2005 07:44:20 +0000 Subject: [PATCH] (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. --- lisp/descr-text.el | 9 +++++++-- 1 file 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") -- 2.39.5