(list-faces-display): Line up multiple lines in sample.

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,