320 |
(spec (nth 1 entry)) |
(spec (nth 1 entry)) |
321 |
(now (nth 2 entry)) |
(now (nth 2 entry)) |
322 |
(comment (nth 3 entry))) |
(comment (nth 3 entry))) |
323 |
|
;; If FACE is actually an alias, customize the face it |
324 |
|
;; is aliased to. |
325 |
|
(if (get face 'face-alias) |
326 |
|
(setq face (get face 'face-alias))) |
327 |
(put face 'saved-face spec) |
(put face 'saved-face spec) |
328 |
(put face 'saved-face-comment comment) |
(put face 'saved-face-comment comment) |
329 |
(custom-push-theme 'theme-face face theme 'set spec) |
(custom-push-theme 'theme-face face theme 'set spec) |
338 |
;; Old format, a plist of FACE SPEC pairs. |
;; Old format, a plist of FACE SPEC pairs. |
339 |
(let ((face (nth 0 args)) |
(let ((face (nth 0 args)) |
340 |
(spec (nth 1 args))) |
(spec (nth 1 args))) |
341 |
|
(if (get face 'face-alias) |
342 |
|
(setq face (get face 'face-alias))) |
343 |
(put face 'saved-face spec) |
(put face 'saved-face spec) |
344 |
(custom-push-theme 'theme-face face theme 'set spec)) |
(custom-push-theme 'theme-face face theme 'set spec)) |
345 |
(setq args (cdr (cdr args)))))))) |
(setq args (cdr (cdr args)))))))) |