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