mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-07-01 17:06:34 +00:00
parent 07ac942ac6
commit 23b04eac8c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/faces.el
View File

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