From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 11 Aug 1998 11:15:58 +0000 (+0000)
Subject: (list-faces-display): Call print-help-return-message.
X-Git-Tag: emacs-20.3~83
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7ad053cb40f3287c1e1ce9be33691da314a095f;p=emacs.git

(list-faces-display): Call print-help-return-message.
(describe-face): Likewise.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index e4a10a115e1..4a7d951aeac 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1138,7 +1138,8 @@ selected frame."
 	    (while (not (eobp))
 	      (insert "                          ")
 	      (forward-line 1))))
-	(goto-char (point-min))))
+	(goto-char (point-min)))
+      (print-help-return-message))
     ;; 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.
@@ -1168,7 +1169,8 @@ selected frame."
     (let ((doc (face-documentation face)))
       (if doc
 	  (princ doc)
-	(princ "not documented as a face.")))))
+	(princ "not documented as a face.")))
+    (print-help-return-message)))
 
 ;;; Setting a face based on a SPEC.