From: Martin Rudalics <rudalics@gmx.at>
Date: Sat, 10 Nov 2007 09:55:53 +0000 (+0000)
Subject: (describe-char): Use with-help-window instead of with-output-to-temp-buffer.
X-Git-Tag: emacs-pretest-23.0.90~9799
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3db0e8bf35b1f26861555bbb1a3aa35e620a7bf2;p=emacs.git

(describe-char): Use with-help-window instead of with-output-to-temp-buffer.
---

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index d14aba7ae6f..3452874f343 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -588,7 +588,7 @@ as well as widgets, buttons, overlays, and text properties."
 					     (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 @@ as well as widgets, buttons, overlays, and text properties."
 
         (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")