4011 |
(setq face-spec (cons ':background |
(setq face-spec (cons ':background |
4012 |
(cons background face-spec)))) |
(cons background face-spec)))) |
4013 |
(when bold-p |
(when bold-p |
4014 |
(setq face-spec (append '(:bold t) face-spec))) |
(setq face-spec (append '(:weight bold) face-spec))) |
4015 |
(when italic-p |
(when italic-p |
4016 |
(setq face-spec (append '(:italic t) face-spec))) |
(setq face-spec (append '(:slant italic) face-spec))) |
4017 |
(when underline-p |
(when underline-p |
4018 |
(setq face-spec (append '(:underline t) face-spec))) |
(setq face-spec (append '(:underline t) face-spec))) |
4019 |
(custom-declare-face face (list (list t face-spec)) nil) |
(custom-declare-face face (list (list t face-spec)) nil) |