From c6808785f826691a6aaa5e6e9908938ff9840d05 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sat, 10 Nov 2007 09:55:10 +0000 Subject: [PATCH] (apropos-describe-plist): Use with-help-window instead of with-output-to-temp-buffer. --- lisp/apropos.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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) -- 2.39.2