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