diff lisp/faces.el @ 8107:0885b28decc6

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

--- 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,