511 |
(set-default (nth 1 form) (eval (nth 2 form)))) |
(set-default (nth 1 form) (eval (nth 2 form)))) |
512 |
((eq (car form) 'defface) |
((eq (car form) 'defface) |
513 |
;; Reset the face. |
;; Reset the face. |
|
(put (nth 1 form) 'face-defface-spec nil) |
|
514 |
(setq face-new-frame-defaults |
(setq face-new-frame-defaults |
515 |
(assq-delete-all (nth 1 form) face-new-frame-defaults)))) |
(assq-delete-all (nth 1 form) face-new-frame-defaults)) |
516 |
|
(put (nth 1 form) 'face-defface-spec nil) |
517 |
|
;; See comments in `eval-defun-1' for purpose of code below |
518 |
|
(setq form (prog1 `(prog1 ,form |
519 |
|
(put ',(nth 1 form) 'saved-face |
520 |
|
',(get (nth 1 form) 'saved-face)) |
521 |
|
(put ',(nth 1 form) 'customized-face |
522 |
|
',(nth 2 form))) |
523 |
|
(put (nth 1 form) 'saved-face nil))))) |
524 |
(setq edebug-result (eval form)) |
(setq edebug-result (eval form)) |
525 |
(if (not edebugging) |
(if (not edebugging) |
526 |
(princ edebug-result) |
(princ edebug-result) |