diff options
| author | Richard M. Stallman | 1998-08-11 11:15:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-08-11 11:15:58 +0000 |
| commit | b7ad053cb40f3287c1e1ce9be33691da314a095f (patch) | |
| tree | 8fd6290632282ce40a6162fa75839bb5b5fe4205 | |
| parent | d18a808f42266d6a1873373e6fef9ca6e74a5226 (diff) | |
| download | emacs-b7ad053cb40f3287c1e1ce9be33691da314a095f.tar.gz emacs-b7ad053cb40f3287c1e1ce9be33691da314a095f.zip | |
(list-faces-display): Call print-help-return-message.
(describe-face): Likewise.
| -rw-r--r-- | lisp/faces.el | 6 |
1 files changed, 4 insertions, 2 deletions
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." | |||
| 1138 | (while (not (eobp)) | 1138 | (while (not (eobp)) |
| 1139 | (insert " ") | 1139 | (insert " ") |
| 1140 | (forward-line 1)))) | 1140 | (forward-line 1)))) |
| 1141 | (goto-char (point-min)))) | 1141 | (goto-char (point-min))) |
| 1142 | (print-help-return-message)) | ||
| 1142 | ;; If the *Faces* buffer appears in a different frame, | 1143 | ;; If the *Faces* buffer appears in a different frame, |
| 1143 | ;; copy all the face definitions from FRAME, | 1144 | ;; copy all the face definitions from FRAME, |
| 1144 | ;; so that the display will reflect the frame that was selected. | 1145 | ;; so that the display will reflect the frame that was selected. |
| @@ -1168,7 +1169,8 @@ selected frame." | |||
| 1168 | (let ((doc (face-documentation face))) | 1169 | (let ((doc (face-documentation face))) |
| 1169 | (if doc | 1170 | (if doc |
| 1170 | (princ doc) | 1171 | (princ doc) |
| 1171 | (princ "not documented as a face."))))) | 1172 | (princ "not documented as a face."))) |
| 1173 | (print-help-return-message))) | ||
| 1172 | 1174 | ||
| 1173 | ;;; Setting a face based on a SPEC. | 1175 | ;;; Setting a face based on a SPEC. |
| 1174 | 1176 | ||