# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1082510717 0
# Node ID eec7e5483b20ca83d89bbea19b6e1131642b5d42
# Parent  2391f8a5bebc51fd7040fd31ccfd5dea4af2f1f1
(describe-char): Make it work on *Help* buffer.

diff -r 2391f8a5bebc -r eec7e5483b20 lisp/descr-text.el
--- a/lisp/descr-text.el	Tue Apr 20 23:16:57 2004 +0000
+++ b/lisp/descr-text.el	Wed Apr 21 01:25:17 2004 +0000
@@ -474,6 +474,7 @@
 			    standard-display-table))
 	 (disp-vector (and display-table (aref display-table char)))
 	 (multibyte-p enable-multibyte-characters)
+	 text-prop-description
 	 item-list max-width unicode)
     (if (eq charset 'unknown)
 	(setq item-list
@@ -582,8 +583,14 @@
 		      (cons (list "Unicode data" " ") unicodedata))))))
     (setq max-width (apply #'max (mapcar #'(lambda (x) (length (car x)))
 					 item-list)))
-    (when (eq (current-buffer) (get-buffer "*Help*"))
-      (error "Can't describe char in Help buffer"))
+    (setq text-prop-description
+	  (with-temp-buffer
+	    (let ((buf (current-buffer)))
+	      (save-excursion
+		(set-buffer buffer)
+		(describe-text-properties pos buf)))
+	    (buffer-string)))
+
     (with-output-to-temp-buffer "*Help*"
       (with-current-buffer standard-output
 	(set-buffer-multibyte multibyte-p)
@@ -658,10 +665,8 @@
 	  (insert "\nSee the variable `reference-point-alist' for "
 		  "the meaning of the rule.\n"))
 
-	(let ((output (current-buffer)))
-	  (with-current-buffer buffer
-	    (describe-text-properties pos output))
-	  (describe-text-mode))))))
+	(insert text-prop-description)
+	(describe-text-mode)))))
 
 (defalias 'describe-char-after 'describe-char)
 (make-obsolete 'describe-char-after 'describe-char "21.5")