/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.385 by mituharu, Fri Nov 4 05:36:47 2005 UTC revision 1.386 by dann, Sat Nov 5 07:29:44 2005 UTC
# Line 958  or `CVS', and any subdirectory that cont Line 958  or `CVS', and any subdirectory that cont
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.

Legend:
Removed from v.1.385  
changed lines
  Added in v.1.386

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26