comparison lisp/faces.el @ 25687:afad62240679

(mode-line, header-line, tool-bar, ): Add :version. (highlight, secondary-selection): Add :group. (trailing-whitespace): Add :group, :version.

25686:c1a7a52bbfea

  '((((type x) (class color))
     (:box (:line-width 2 :style released-button) :background "grey75"))
    (t
     (:inverse-video t)))
  "Basic mode line face."
  :group 'basic-faces)

;; Make `modeline' an alias for `mode-line', for compatibility.
(put 'modeline 'face-alias 'mode-line)

  '((((type x) (class color))
     (:box (:line-width 2 :style released-button) :background "grey75"))
    (t
     (:inverse-video t)))
  "Basic header-line face."
  :group 'basic-faces)


(defface tool-bar
  '((((type x) (class color))

    (((type x) (class mono))
     (:box (:line-width 1 :style released-button) :background "grey"))
    (t
     ()))
  "Basic tool-bar face."
  :group 'basic-faces)


(defface region
  '((((type tty) (class color))

    (((class color) (background light))
     (:background "darkseagreen2"))
    (((class color) (background dark))
     (:background "darkolivegreen"))
    (t (:inverse-video t)))
  "Basic face for highlighting.")


(defface secondary-selection
  '((((type tty) (class color))
     (:background "cyan"))
    (((class color) (background light))
     (:background "paleturquoise"))
    (((class color) (background dark))
     (:background "darkslateblue"))
    (t (:inverse-video t)))
  "Basic face for displaying the secondary selection.")


(defface fixed-pitch '((t (:family "courier*")))
  "The basic fixed-pitch face."
  :group 'basic-faces)

  '((((class color) (background light))
     (:background "red"))
    (((class color) (background dark))
     (:background "red"))
    (t (:inverse-video t)))
  "Basic face for highlighting trailing whitespace.")



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Manipulating font names.

25687:afad62240679

  '((((type x) (class color))
     (:box (:line-width 2 :style released-button) :background "grey75"))
    (t
     (:inverse-video t)))
  "Basic mode line face."
  :version "21.1"
  :group 'basic-faces)

;; Make `modeline' an alias for `mode-line', for compatibility.
(put 'modeline 'face-alias 'mode-line)

  '((((type x) (class color))
     (:box (:line-width 2 :style released-button) :background "grey75"))
    (t
     (:inverse-video t)))
  "Basic header-line face."
  :version "21.1"
  :group 'basic-faces)


(defface tool-bar
  '((((type x) (class color))

    (((type x) (class mono))
     (:box (:line-width 1 :style released-button) :background "grey"))
    (t
     ()))
  "Basic tool-bar face."
  :version "21.1"
  :group 'basic-faces)


(defface region
  '((((type tty) (class color))

    (((class color) (background light))
     (:background "darkseagreen2"))
    (((class color) (background dark))
     (:background "darkolivegreen"))
    (t (:inverse-video t)))
  "Basic face for highlighting."
  :group 'basic-faces)


(defface secondary-selection
  '((((type tty) (class color))
     (:background "cyan"))
    (((class color) (background light))
     (:background "paleturquoise"))
    (((class color) (background dark))
     (:background "darkslateblue"))
    (t (:inverse-video t)))
  "Basic face for displaying the secondary selection."
  :group 'basic-faces)


(defface fixed-pitch '((t (:family "courier*")))
  "The basic fixed-pitch face."
  :group 'basic-faces)

  '((((class color) (background light))
     (:background "red"))
    (((class color) (background dark))
     (:background "red"))
    (t (:inverse-video t)))
  "Basic face for highlighting trailing whitespace."
  :version "21.1"
  :group 'basic-faces)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Manipulating font names.