1108 |
Arguments from ARGS should be either strings, functions called |
Arguments from ARGS should be either strings, functions called |
1109 |
with no args that return a string, or pairs `:face FACE', |
with no args that return a string, or pairs `:face FACE', |
1110 |
where FACE is a valid face specification, as it can be used with |
where FACE is a valid face specification, as it can be used with |
1111 |
`put-text-properties'." |
`put-text-property'." |
1112 |
(let ((current-face nil)) |
(let ((current-face nil)) |
1113 |
(while args |
(while args |
1114 |
(if (eq (car args) :face) |
(if (eq (car args) :face) |