From 23b04eac8c6916d8fd1e2c67810faef6dba1dbb5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 1 Jul 1994 17:06:34 +0000 Subject: [PATCH] (list-faces-display): Line up multiple lines in sample. --- lisp/faces.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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, -- 2.39.5