# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1134546260 0
# Node ID da1c54077c04d2a8328b7e5fcaaf8e297f099ef6
# Parent  3e8f8913897e7495d07597eaedfe489ab397b4ed
(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.

diff -r 3e8f8913897e -r da1c54077c04 lisp/descr-text.el
--- 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")