Mercurial > emacs
changeset 86010:d42c1cd75af4
(list-faces-display, describe-face):
Use with-help-window instead of with-output-to-temp-buffer.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Sat, 10 Nov 2007 09:57:18 +0000 |
| parents | 80d1d625bb6f |
| children | 474f44ceee97 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Sat Nov 10 09:56:32 2007 +0000 +++ b/lisp/faces.el Sat Nov 10 09:57:18 2007 +0000 @@ -1194,7 +1194,7 @@ (error "No faces matching \"%s\"" regexp)) (setq max-length (1+ max-length) line-format (format "%%-%ds" max-length)) - (with-output-to-temp-buffer "*Faces*" + (with-help-window "*Faces*" (save-excursion (set-buffer standard-output) (setq truncate-lines t) @@ -1235,8 +1235,7 @@ (while (not (eobp)) (insert-char ?\s max-length) (forward-line 1)))) - (goto-char (point-min))) - (print-help-return-message)) + (goto-char (point-min)))) ;; If the *Faces* buffer appears in a different frame, ;; copy all the face definitions from FRAME, ;; so that the display will reflect the frame that was selected. @@ -1281,7 +1280,7 @@ (setq face 'default)) (if (not (listp face)) (setq face (list face))) - (with-output-to-temp-buffer (help-buffer) + (with-help-window (help-buffer) (save-excursion (set-buffer standard-output) (dolist (f face) @@ -1328,8 +1327,7 @@ (re-search-backward ": \\([^:]+\\)" nil t) (help-xref-button 1 'help-face attr))) (insert "\n"))))) - (terpri))) - (print-help-return-message)))) + (terpri)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;