diff options
| author | Martin Rudalics | 2007-11-10 09:55:10 +0000 |
|---|---|---|
| committer | Martin Rudalics | 2007-11-10 09:55:10 +0000 |
| commit | c6808785f826691a6aaa5e6e9908938ff9840d05 (patch) | |
| tree | ee66bb0b3d711e8f2a09b5f3b078ed7a0da1360c | |
| parent | 91dc07f365553290cf0103b497f846424b1d6990 (diff) | |
| download | emacs-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.el | 5 |
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) |