[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/startup.el
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/startup.el |
Date: |
Sat, 05 Nov 2005 02:29:49 -0500 |
Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.385 emacs/lisp/startup.el:1.386
*** emacs/lisp/startup.el:1.385 Fri Nov 4 05:36:47 2005
--- emacs/lisp/startup.el Sat Nov 5 07:29:44 2005
***************
*** 958,963 ****
--- 958,995 ----
(or mail-host-address
(system-name)))))
+ ;; Originally face attributes were specified via
+ ;; `font-lock-face-attributes'. Users then changed the default
+ ;; face attributes by setting that variable. However, we try and
+ ;; be back-compatible and respect its value if set except for
+ ;; faces where M-x customize has been used to save changes for the
+ ;; face.
+ (when (boundp 'font-lock-face-attributes)
+ (let ((face-attributes font-lock-face-attributes))
+ (while face-attributes
+ (let* ((face-attribute (pop face-attributes))
+ (face (car face-attribute)))
+ ;; Rustle up a `defface' SPEC from a
+ ;; `font-lock-face-attributes' entry.
+ (unless (get face 'saved-face)
+ (let ((foreground (nth 1 face-attribute))
+ (background (nth 2 face-attribute))
+ (bold-p (nth 3 face-attribute))
+ (italic-p (nth 4 face-attribute))
+ (underline-p (nth 5 face-attribute))
+ face-spec)
+ (when foreground
+ (setq face-spec (cons ':foreground (cons foreground
face-spec))))
+ (when background
+ (setq face-spec (cons ':background (cons background
face-spec))))
+ (when bold-p
+ (setq face-spec (append '(:weight bold) face-spec)))
+ (when italic-p
+ (setq face-spec (append '(:slant italic) face-spec)))
+ (when underline-p
+ (setq face-spec (append '(:underline t) face-spec)))
+ (face-spec-set face (list (list t face-spec)) nil)))))))
+
;; If parameter have been changed in the init file which influence
;; face realization, clear the face cache so that new faces will
;; be realized.
- [Emacs-diffs] Changes to emacs/lisp/startup.el, YAMAMOTO Mitsuharu, 2005/11/03
- [Emacs-diffs] Changes to emacs/lisp/startup.el, YAMAMOTO Mitsuharu, 2005/11/04
- [Emacs-diffs] Changes to emacs/lisp/startup.el,
Dan Nicolaescu <=
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Luc Teirlinck, 2005/11/05
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Luc Teirlinck, 2005/11/15
- [Emacs-diffs] Changes to emacs/lisp/startup.el, YAMAMOTO Mitsuharu, 2005/11/19
- [Emacs-diffs] Changes to emacs/lisp/startup.el, Luc Teirlinck, 2005/11/21