diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-01 17:06:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-01 17:06:34 +0000 |
| commit | 23b04eac8c6916d8fd1e2c67810faef6dba1dbb5 (patch) | |
| tree | 05151cc12e9d98a922af022fa954f10f57b3730c | |
| parent | 07ac942ac659063e3d95e2079e4d677b8474377e (diff) | |
| download | emacs-23b04eac8c6916d8fd1e2c67810faef6dba1dbb5.tar.gz | |
(list-faces-display): Line up multiple lines in sample.
| -rw-r--r-- | lisp/faces.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index ff208f8352f..a387a2222e4 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -729,7 +729,13 @@ selected frame." (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, |