HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
07ac942
)
(list-faces-display): Line up multiple lines in sample.
author
Richard M. Stallman
<rms@gnu.org>
Fri, 1 Jul 1994 17:06:34 +0000
(17:06 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Fri, 1 Jul 1994 17:06:34 +0000
(17:06 +0000)
lisp/faces.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/faces.el
b/lisp/faces.el
index
ff208f8
..
a387a22
100644
(file)
--- a/
lisp/faces.el
+++ b/
lisp/faces.el
@@
-729,7
+729,13
@@
selected frame."
(let ((beg (point)))
(insert list-faces-sample-text)
(insert "\n")
(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,
(goto-char (point-min))))
;; If the *Faces* buffer appears in a different frame,
;; copy all the face definitions from FRAME,