# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1099350411 0
# Node ID 6d1cf277e127bd06fa9b64bd8d5fa27d5bca9348
# Parent  df80d19d7a2e0aa04b79b716a5231a02ddbfcb61
(describe-text-properties): Don't err if called in
the *Help* buffer; output to *Help-2* buffer instead.

diff -r df80d19d7a2e -r 6d1cf277e127 lisp/descr-text.el
--- a/lisp/descr-text.el	Mon Nov 01 23:06:36 2004 +0000
+++ b/lisp/descr-text.el	Mon Nov 01 23:06:51 2004 +0000
@@ -176,11 +176,12 @@
       (describe-text-properties-1 pos output-buffer)
     (if (not (or (text-properties-at pos) (overlays-at pos)))
 	(message "This is plain text.")
-      (let ((buffer (current-buffer)))
-	(when (eq buffer (get-buffer "*Help*"))
-	  (error "Can't do self inspection"))
+      (let ((buffer (current-buffer))
+	    (target-buffer "*Help*"))
+	(when (eq buffer (get-buffer target-buffer))
+	  (setq target-buffer "*Help-2*"))
 	(save-excursion
-	  (with-output-to-temp-buffer "*Help*"
+	  (with-output-to-temp-buffer target-buffer
 	    (set-buffer standard-output)
 	    (setq output-buffer (current-buffer))
 	    (widget-insert "Text content at position " (format "%d" pos) ":\n\n")