631 |
;; Resetting `saved-face' temporarily to nil is needed to let |
;; Resetting `saved-face' temporarily to nil is needed to let |
632 |
;; `defface' change the spec, regardless of a saved spec. |
;; `defface' change the spec, regardless of a saved spec. |
633 |
(prog1 `(prog1 ,form |
(prog1 `(prog1 ,form |
634 |
(put ',(eval (nth 1 form)) 'saved-face |
(put ,(nth 1 form) 'saved-face |
635 |
',(get (eval (nth 1 form)) 'saved-face)) |
',(get (eval (nth 1 form)) 'saved-face)) |
636 |
(put ',(eval (nth 1 form)) 'customized-face |
(put ,(nth 1 form) 'customized-face |
637 |
',(eval (nth 2 form)))) |
,(nth 2 form))) |
638 |
(put (eval (nth 1 form)) 'saved-face nil))) |
(put (eval (nth 1 form)) 'saved-face nil))) |
639 |
((eq (car form) 'progn) |
((eq (car form) 'progn) |
640 |
(cons 'progn (mapcar 'eval-defun-1 (cdr form)))) |
(cons 'progn (mapcar 'eval-defun-1 (cdr form)))) |