]> git.eshelyaron.com Git - emacs.git/commitdiff
(apropos-describe-plist):
authorMartin Rudalics <rudalics@gmx.at>
Sat, 10 Nov 2007 09:55:10 +0000 (09:55 +0000)
committerMartin Rudalics <rudalics@gmx.at>
Sat, 10 Nov 2007 09:55:10 +0000 (09:55 +0000)
Use with-help-window instead of with-output-to-temp-buffer.

lisp/apropos.el

index 9e784e087e68f6801b68fb8891b55f88cf067815..9fddf0103fbe75dfe56603c87c1014785d4ac5d7 100644 (file)
@@ -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)