# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1194688553 0
# Node ID 054e548612aa1713e9ac497f9a1de4ef440709c3
# Parent  b8077b8314c53ff093ae64f25f7bfcab6ec3e3f1
(describe-char): Use with-help-window instead of with-output-to-temp-buffer.

diff -r b8077b8314c5 -r 054e548612aa lisp/descr-text.el
--- a/lisp/descr-text.el	Sat Nov 10 09:55:10 2007 +0000
+++ b/lisp/descr-text.el	Sat Nov 10 09:55:53 2007 +0000
@@ -588,7 +588,7 @@
 					     (if (cadr x) (length (car x)) 0))
 					 item-list)))
     (help-setup-xref nil (interactive-p))
-    (with-output-to-temp-buffer (help-buffer)
+    (with-help-window (help-buffer)
       (with-current-buffer standard-output
 	(set-buffer-multibyte multibyte-p)
 	(let ((formatter (format "%%%ds:" max-width)))
@@ -685,8 +685,7 @@
 
         (if text-props-desc (insert text-props-desc))
 	(setq help-xref-stack-item (list 'help-insert-string (buffer-string)))
-	(toggle-read-only 1)
-	(print-help-return-message)))))
+	(toggle-read-only 1)))))
 
 (defalias 'describe-char-after 'describe-char)
 (make-obsolete 'describe-char-after 'describe-char "22.1")