From b766be6a9b66f23f096d4149f43baeb231195545 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sat, 10 Nov 2007 09:57:18 +0000 Subject: [PATCH] (list-faces-display, describe-face): Use with-help-window instead of with-output-to-temp-buffer. --- lisp/faces.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index a859c2658a4..5c51f7ba823 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1194,7 +1194,7 @@ arg, prompt for a regular expression." (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 @@ arg, prompt for a regular expression." (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 @@ If FRAME is omitted or nil, use the selected frame." (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 @@ If FRAME is omitted or nil, use the selected frame." (re-search-backward ": \\([^:]+\\)" nil t) (help-xref-button 1 'help-face attr))) (insert "\n"))))) - (terpri))) - (print-help-return-message)))) + (terpri)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -- 2.39.2