Mercurial > emacs
comparison lisp/cus-theme.el @ 90225:a3716f7538f2
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-79
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 519-530)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 106-111)
- Merge from emacs--cvs-trunk--0
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 06 Sep 2005 00:25:20 +0000 |
| parents | 2d92f5c9d6ae 6990826a916f |
| children | 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 90224:2d92f5c9d6ae | 90225:a3716f7538f2 |
|---|---|
| 166 (unless (bolp) | 166 (unless (bolp) |
| 167 (princ "\n")) | 167 (princ "\n")) |
| 168 (princ " '(") | 168 (princ " '(") |
| 169 (prin1 symbol) | 169 (prin1 symbol) |
| 170 (princ " ") | 170 (princ " ") |
| 171 (prin1 (or (get symbol 'customized-face) | 171 (prin1 (list (append '(t) |
| 172 (get symbol 'face-defface-spec))) | 172 (custom-face-attributes-get |
| 173 'font-lock-comment-face nil)))) | |
| 173 (princ ")"))) | 174 (princ ")"))) |
| 174 faces) | 175 faces) |
| 175 (if (bolp) | 176 (if (bolp) |
| 176 (princ " ")) | 177 (princ " ")) |
| 177 (princ ")") | 178 (princ ")") |