Commit 23b04eac authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 07ac942a
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment