Mercurial > emacs
changeset 8107:0885b28decc6
(list-faces-display): Line up multiple lines in sample.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 01 Jul 1994 17:06:34 +0000 |
| parents | ec8291e58762 |
| children | 7b9d245c5978 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Fri Jul 01 16:28:00 1994 +0000 +++ b/lisp/faces.el Fri Jul 01 17:06:34 1994 +0000 @@ -729,7 +729,13 @@ (let ((beg (point))) (insert list-faces-sample-text) (insert "\n") - (put-text-property beg (1- (point)) 'face face))) + (put-text-property beg (1- (point)) 'face face) + ;; If the sample text has multiple lines, line up all of them. + (goto-char beg) + (forward-line 1) + (while (not (eobp)) + (insert " ") + (forward-line 1)))) (goto-char (point-min)))) ;; If the *Faces* buffer appears in a different frame, ;; copy all the face definitions from FRAME,