aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMartin Rudalics2007-11-10 09:55:10 +0000
committerMartin Rudalics2007-11-10 09:55:10 +0000
commitc6808785f826691a6aaa5e6e9908938ff9840d05 (patch)
treeee66bb0b3d711e8f2a09b5f3b078ed7a0da1360c
parent91dc07f365553290cf0103b497f846424b1d6990 (diff)
downloademacs-c6808785f826691a6aaa5e6e9908938ff9840d05.tar.gz
emacs-c6808785f826691a6aaa5e6e9908938ff9840d05.zip
(apropos-describe-plist):
Use with-help-window instead of with-output-to-temp-buffer.
-rw-r--r--lisp/apropos.el5
1 files 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."
1005(defun apropos-describe-plist (symbol) 1005(defun apropos-describe-plist (symbol)
1006 "Display a pretty listing of SYMBOL's plist." 1006 "Display a pretty listing of SYMBOL's plist."
1007 (help-setup-xref (list 'apropos-describe-plist symbol) (interactive-p)) 1007 (help-setup-xref (list 'apropos-describe-plist symbol) (interactive-p))
1008 (with-output-to-temp-buffer (help-buffer) 1008 (with-help-window (help-buffer)
1009 (set-buffer standard-output) 1009 (set-buffer standard-output)
1010 (princ "Symbol ") 1010 (princ "Symbol ")
1011 (prin1 symbol) 1011 (prin1 symbol)
@@ -1014,8 +1014,7 @@ If non-nil TEXT is a string that will be printed as a heading."
1014 (put-text-property (+ (point-min) 7) (- (point) 14) 1014 (put-text-property (+ (point-min) 7) (- (point) 14)
1015 'face apropos-symbol-face)) 1015 'face apropos-symbol-face))
1016 (insert (apropos-format-plist symbol "\n ")) 1016 (insert (apropos-format-plist symbol "\n "))
1017 (princ ")") 1017 (princ ")")))
1018 (print-help-return-message)))
1019 1018
1020 1019
1021(provide 'apropos) 1020(provide 'apropos)