Mercurial > emacs
comparison lisp/faces.el @ 8107:0885b28decc6
(list-faces-display): Line up multiple lines in sample.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 01 Jul 1994 17:06:34 +0000 |
parents | 1bb462fc29fc |
children | 9bc00e1f0f3e |
comparison
equal
deleted
inserted
replaced
8106:ec8291e58762 | 8107:0885b28decc6 |
---|---|
727 (setq faces (cdr faces)) | 727 (setq faces (cdr faces)) |
728 (insert (format "%25s " (symbol-name face))) | 728 (insert (format "%25s " (symbol-name face))) |
729 (let ((beg (point))) | 729 (let ((beg (point))) |
730 (insert list-faces-sample-text) | 730 (insert list-faces-sample-text) |
731 (insert "\n") | 731 (insert "\n") |
732 (put-text-property beg (1- (point)) 'face face))) | 732 (put-text-property beg (1- (point)) 'face face) |
733 ;; If the sample text has multiple lines, line up all of them. | |
734 (goto-char beg) | |
735 (forward-line 1) | |
736 (while (not (eobp)) | |
737 (insert " ") | |
738 (forward-line 1)))) | |
733 (goto-char (point-min)))) | 739 (goto-char (point-min)))) |
734 ;; If the *Faces* buffer appears in a different frame, | 740 ;; If the *Faces* buffer appears in a different frame, |
735 ;; copy all the face definitions from FRAME, | 741 ;; copy all the face definitions from FRAME, |
736 ;; so that the display will reflect the frame that was selected. | 742 ;; so that the display will reflect the frame that was selected. |
737 (setq window (get-buffer-window (get-buffer "*Faces*") t)) | 743 (setq window (get-buffer-window (get-buffer "*Faces*") t)) |