Commit 08b0fee8 authored by Chong Yidong's avatar Chong Yidong

* lisp/faces.el (cursor): Doc fix.

Also, remove the :foreground attributes from cursor faces
in built-in themes, since that attribute is unmeaningful.
parent 743d0817
......@@ -37,7 +37,7 @@
`(compilation-line-number ((,class (:foreground "LightGreen"))))
`(cperl-array-face ((,class (:foreground "yellow2"))))
`(cperl-hash-face ((,class (:foreground "coral1"))))
`(cursor ((,class (:background "green" :foreground "black"))))
`(cursor ((,class (:background "green"))))
`(default ((,class (:background "#181a26" :foreground "gray80"))))
`(diff-added ((,class (nil))))
`(diff-changed ((,class (nil))))
......
......@@ -42,7 +42,7 @@ Ansi-Color faces are included.")
(custom-theme-set-faces
'dichromacy
`(default ((,class (:foreground "black" :background "white"))))
`(cursor ((,class (:foreground "white" :background "black"))))
`(cursor ((,class (:background "black"))))
;; Highlighting faces
`(fringe ((,class (:background "#f7f7f7"))))
`(highlight ((,class (:foreground ,blue :background "#e5e5e5"))))
......
......@@ -33,7 +33,7 @@
(:background "#2d3743" :foreground "#e1e1e0"))
(,class
(:background "#3a3a3a" :foreground "#e1e1e0"))))
`(cursor ((,class (:background "#415160" :foreground "#415160"))))
`(cursor ((,class (:background "#415160"))))
;; Highlighting faces
`(fringe ((,class (:background "#2e3748"))))
`(highlight ((,class (:background "#338f86" :foreground "#e1e1e0"))))
......
......@@ -56,7 +56,7 @@ Semantic, and Ansi-Color faces are included.")
(:foreground ,alum-1 :background "#222"))
(,class
(:foreground ,alum-1 :background "black"))))
`(cursor ((,class (:foreground ,alum-6 :background ,butter-1))))
`(cursor ((,class (:background ,butter-1))))
;; Highlighting faces
`(fringe ((,class (:background ,alum-7))))
`(highlight ((,class (:foreground ,alum-6 :background ,butter-2))))
......
......@@ -49,7 +49,7 @@ Semantic, and Ansi-Color faces are included.")
(custom-theme-set-faces
'tango
`(default ((,class (:foreground ,alum-6 :background ,alum-1))))
`(cursor ((,class (:foreground ,alum-1 :background ,blue-3))))
`(cursor ((,class (:background ,blue-3))))
;; Highlighting faces
`(fringe ((,class (:background ,alum-2))))
`(highlight ((,class (:background ,alum-3))))
......
......@@ -29,7 +29,7 @@ of green, brown, and blue.")
(custom-theme-set-faces
'wheatgrass
`(default ((,class (:foreground "wheat" :background "black"))))
`(cursor ((,class (:foreground "black" :background "thistle"))))
`(cursor ((,class (:background "thistle"))))
`(error ((,class (:foreground "salmon1"))))
`(warning ((,class (:foreground "orange"))))
`(success ((,class (:foreground "yellow green"))))
......
......@@ -38,7 +38,7 @@
`(cperl-array-face ((,class (:foreground "SlateBlue3"))))
`(cperl-hash-face ((,class (:foreground "turquoise3"))))
`(cperl-nonoverridable-face ((,class (:foreground "orchid3"))))
`(cursor ((,class (:background "Green4" :foreground "gainsboro"))))
`(cursor ((,class (:background "Green4"))))
`(default ((,class (:background "whitesmoke" :foreground "black"))))
`(dired-marked ((,class (:background "dodgerblue3" :foreground "white"))))
`(flymake-errline ((,class (:background nil :underline "red"))))
......
......@@ -31,7 +31,7 @@ are included.")
(custom-theme-set-faces
'wombat
`(default ((,class (:background "#242424" :foreground "#f6f3e8"))))
`(cursor ((,class (:background "#656565" :foreground "#f6f3e8"))))
`(cursor ((,class (:background "#656565"))))
;; Highlighting faces
`(fringe ((,class (:background "#303030"))))
`(highlight ((,class (:background "#454545" :foreground "#ffffff"
......
2011-10-18 Chong Yidong <cyd@gnu.org>
* faces.el (cursor): Doc fix.
2011-10-17 Chong Yidong <cyd@gnu.org>
* font-lock.el (font-lock-maximum-size): Mark as obsolete.
......
......@@ -2366,6 +2366,10 @@ used to display the prompt text."
'((((background light)) :background "black")
(((background dark)) :background "white"))
"Basic face for the cursor color under X.
Currently, only the `:background' attribute is meaningful; all
other attributes are ignored. The cursor foreground color is
taken from the background color of the underlying text.
Note: Other faces cannot inherit from the cursor face."
:version "21.1"
:group 'cursor
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment