Mercurial > emacs

changeset 86008:054e548612aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-char): Use with-help-window instead of with-output-to-temp-buffer.
author Martin Rudalics <rudalics@gmx.at>
date Sat, 10 Nov 2007 09:55:53 +0000
parents b8077b8314c5
children 80d1d625bb6f
files lisp/descr-text.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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")