958 |
(or mail-host-address |
(or mail-host-address |
959 |
(system-name))))) |
(system-name))))) |
960 |
|
|
961 |
|
;; Originally face attributes were specified via |
962 |
|
;; `font-lock-face-attributes'. Users then changed the default |
963 |
|
;; face attributes by setting that variable. However, we try and |
964 |
|
;; be back-compatible and respect its value if set except for |
965 |
|
;; faces where M-x customize has been used to save changes for the |
966 |
|
;; face. |
967 |
|
(when (boundp 'font-lock-face-attributes) |
968 |
|
(let ((face-attributes font-lock-face-attributes)) |
969 |
|
(while face-attributes |
970 |
|
(let* ((face-attribute (pop face-attributes)) |
971 |
|
(face (car face-attribute))) |
972 |
|
;; Rustle up a `defface' SPEC from a |
973 |
|
;; `font-lock-face-attributes' entry. |
974 |
|
(unless (get face 'saved-face) |
975 |
|
(let ((foreground (nth 1 face-attribute)) |
976 |
|
(background (nth 2 face-attribute)) |
977 |
|
(bold-p (nth 3 face-attribute)) |
978 |
|
(italic-p (nth 4 face-attribute)) |
979 |
|
(underline-p (nth 5 face-attribute)) |
980 |
|
face-spec) |
981 |
|
(when foreground |
982 |
|
(setq face-spec (cons ':foreground (cons foreground face-spec)))) |
983 |
|
(when background |
984 |
|
(setq face-spec (cons ':background (cons background face-spec)))) |
985 |
|
(when bold-p |
986 |
|
(setq face-spec (append '(:weight bold) face-spec))) |
987 |
|
(when italic-p |
988 |
|
(setq face-spec (append '(:slant italic) face-spec))) |
989 |
|
(when underline-p |
990 |
|
(setq face-spec (append '(:underline t) face-spec))) |
991 |
|
(face-spec-set face (list (list t face-spec)) nil))))))) |
992 |
|
|
993 |
;; If parameter have been changed in the init file which influence |
;; If parameter have been changed in the init file which influence |
994 |
;; face realization, clear the face cache so that new faces will |
;; face realization, clear the face cache so that new faces will |
995 |
;; be realized. |
;; be realized. |