Mercurial > emacs
comparison lisp/faces.el @ 24174:4cd52e40cf31
(list-faces-display): Multiline case of previous fix.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 25 Jan 1999 16:41:04 +0000 |
parents | 094765645c52 |
children | 82cf6c4c1e03 |
comparison
equal
deleted
inserted
replaced
24173:810e9f8c8ed7 | 24174:4cd52e40cf31 |
---|---|
1146 (put-text-property beg (1- (point)) 'face face) | 1146 (put-text-property beg (1- (point)) 'face face) |
1147 ;; If the sample text has multiple lines, line up all of them. | 1147 ;; If the sample text has multiple lines, line up all of them. |
1148 (goto-char beg) | 1148 (goto-char beg) |
1149 (forward-line 1) | 1149 (forward-line 1) |
1150 (while (not (eobp)) | 1150 (while (not (eobp)) |
1151 (insert " ") | 1151 (insert-char ? (1+ face-name-max-length)) |
1152 (forward-line 1)))) | 1152 (forward-line 1)))) |
1153 (goto-char (point-min))) | 1153 (goto-char (point-min))) |
1154 (print-help-return-message)) | 1154 (print-help-return-message)) |
1155 ;; If the *Faces* buffer appears in a different frame, | 1155 ;; If the *Faces* buffer appears in a different frame, |
1156 ;; copy all the face definitions from FRAME, | 1156 ;; copy all the face definitions from FRAME, |