diff options
| -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." | |||
| 729 | (let ((beg (point))) | 729 | (let ((beg (point))) |
| 730 | (insert list-faces-sample-text) | 730 | (insert list-faces-sample-text) |
| 731 | (insert "\n") | 731 | (insert "\n") |
| 732 | (put-text-property beg (1- (point)) 'face face))) | 732 | (put-text-property beg (1- (point)) 'face face) |
| 733 | ;; If the sample text has multiple lines, line up all of them. | ||
| 734 | (goto-char beg) | ||
| 735 | (forward-line 1) | ||
| 736 | (while (not (eobp)) | ||
| 737 | (insert " ") | ||
| 738 | (forward-line 1)))) | ||
| 733 | (goto-char (point-min)))) | 739 | (goto-char (point-min)))) |
| 734 | ;; If the *Faces* buffer appears in a different frame, | 740 | ;; If the *Faces* buffer appears in a different frame, |
| 735 | ;; copy all the face definitions from FRAME, | 741 | ;; copy all the face definitions from FRAME, |