From: Martin Rudalics <rudalics@gmx.at>
Date: Sat, 10 Nov 2007 09:55:10 +0000 (+0000)
Subject: (apropos-describe-plist):
X-Git-Tag: emacs-pretest-23.0.90~9800
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6808785f826691a6aaa5e6e9908938ff9840d05;p=emacs.git

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

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 9e784e087e6..9fddf0103fb 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1005,7 +1005,7 @@ If non-nil TEXT is a string that will be printed as a heading."
 (defun apropos-describe-plist (symbol)
   "Display a pretty listing of SYMBOL's plist."
   (help-setup-xref (list 'apropos-describe-plist symbol) (interactive-p))
-  (with-output-to-temp-buffer (help-buffer)
+  (with-help-window (help-buffer)
     (set-buffer standard-output)
     (princ "Symbol ")
     (prin1 symbol)
@@ -1014,8 +1014,7 @@ If non-nil TEXT is a string that will be printed as a heading."
 	(put-text-property (+ (point-min) 7) (- (point) 14)
 			   'face apropos-symbol-face))
     (insert (apropos-format-plist symbol "\n  "))
-    (princ ")")
-    (print-help-return-message)))
+    (princ ")")))
 
 
 (provide 'apropos)