Mercurial > emacs
comparison lisp/cus-face.el @ 84613:f8c971a5c815
(custom-theme-set-faces): Undo previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 17 Sep 2007 02:55:09 +0000 |
| parents | ac2caa9660e7 |
| children | 0ef4914a2852 14c4a6aac623 |
comparison
equal
deleted
inserted
replaced
| 84612:94df91d0b63e | 84613:f8c971a5c815 |
|---|---|
| 340 (put face 'force-face (if now 'rogue 'immediate))) | 340 (put face 'force-face (if now 'rogue 'immediate))) |
| 341 (when (or now immediate (facep face)) | 341 (when (or now immediate (facep face)) |
| 342 (unless (facep face) | 342 (unless (facep face) |
| 343 (make-empty-face face)) | 343 (make-empty-face face)) |
| 344 (put face 'face-comment comment) | 344 (put face 'face-comment comment) |
| 345 (dolist (frame (frame-list)) | 345 (face-spec-set face spec nil)) |
| 346 (face-spec-set face spec frame))) | 346 (setq args (cdr args))) |
| 347 (setq args (cdr args))) | 347 ;; Old format, a plist of FACE SPEC pairs. |
| 348 ;; Old format, a plist of FACE SPEC pairs. | 348 (let ((face (nth 0 args)) |
| 349 (let ((face (nth 0 args)) | 349 (spec (nth 1 args))) |
| 350 (spec (nth 1 args))) | 350 (if (get face 'face-alias) |
| 351 (if (get face 'face-alias) | 351 (setq face (get face 'face-alias))) |
| 352 (setq face (get face 'face-alias))) | 352 (put face 'saved-face spec) |
| 353 (put face 'saved-face spec) | 353 (custom-push-theme 'theme-face face theme 'set spec)) |
| 354 (custom-push-theme 'theme-face face theme 'set spec)) | 354 (setq args (cdr (cdr args)))))))) |
| 355 (setq args (cdr (cdr args)))))))) | |
| 356 | 355 |
| 357 ;; XEmacs compability function. In XEmacs, when you reset a Custom | 356 ;; XEmacs compability function. In XEmacs, when you reset a Custom |
| 358 ;; Theme, you have to specify the theme to reset it to. We just apply | 357 ;; Theme, you have to specify the theme to reset it to. We just apply |
| 359 ;; the next theme. | 358 ;; the next theme. |
| 360 ;;;###autoload | 359 ;;;###autoload |