andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(apropos-describe-plist):

Browse source 
Use with-help-window instead of with-output-to-temp-buffer.
This commit is contained in:
Martin Rudalics 2007-11-10 09:55:10 +00:00
parent 91dc07f365
commit c6808785f8
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/apropos.el
View 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)