From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 1 Jul 1994 17:06:34 +0000 (+0000)
Subject: (list-faces-display): Line up multiple lines in sample.
X-Git-Tag: emacs-19.34~7746
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=23b04eac8c6916d8fd1e2c67810faef6dba1dbb5;p=emacs.git

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

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,