[Emacs-diffs] /srv/bzr/emacs/trunk r106112: * lisp/faces.el (cursor): Doc fix.

[Chong Yidong]

------------------------------------------------------------
revno: 106112
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2011-10-18 02:17:05 -0400
message:
  * lisp/faces.el (cursor): Doc fix.
  
  Also, remove the :foreground attributes from cursor faces
  in built-in themes, since that attribute is unmeaningful.
modified:
  etc/themes/deeper-blue-theme.el
  etc/themes/dichromacy-theme.el
  etc/themes/misterioso-theme.el
  etc/themes/tango-dark-theme.el
  etc/themes/tango-theme.el
  etc/themes/wheatgrass-theme.el
  etc/themes/whiteboard-theme.el
  etc/themes/wombat-theme.el
  lisp/ChangeLog
  lisp/faces.el

=== modified file 'etc/themes/deeper-blue-theme.el'
--- a/etc/themes/deeper-blue-theme.el   2011-09-13 01:55:46 +0000
+++ b/etc/themes/deeper-blue-theme.el   2011-10-18 06:17:05 +0000
@@ -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))))

=== modified file 'etc/themes/dichromacy-theme.el'
--- a/etc/themes/dichromacy-theme.el    2011-08-19 00:12:45 +0000
+++ b/etc/themes/dichromacy-theme.el    2011-10-18 06:17:05 +0000
@@ -42,7 +42,7 @@
   (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"))))

=== modified file 'etc/themes/misterioso-theme.el'
--- a/etc/themes/misterioso-theme.el    2011-06-14 05:06:26 +0000
+++ b/etc/themes/misterioso-theme.el    2011-10-18 06:17:05 +0000
@@ -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"))))

=== modified file 'etc/themes/tango-dark-theme.el'
--- a/etc/themes/tango-dark-theme.el    2011-08-19 00:12:45 +0000
+++ b/etc/themes/tango-dark-theme.el    2011-10-18 06:17:05 +0000
@@ -56,7 +56,7 @@
               (: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))))

=== modified file 'etc/themes/tango-theme.el'
--- a/etc/themes/tango-theme.el 2011-08-19 00:12:45 +0000
+++ b/etc/themes/tango-theme.el 2011-10-18 06:17:05 +0000
@@ -49,7 +49,7 @@
   (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))))

=== modified file 'etc/themes/wheatgrass-theme.el'
--- a/etc/themes/wheatgrass-theme.el    2011-08-19 00:12:45 +0000
+++ b/etc/themes/wheatgrass-theme.el    2011-10-18 06:17:05 +0000
@@ -29,7 +29,7 @@
   (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"))))

=== modified file 'etc/themes/whiteboard-theme.el'
--- a/etc/themes/whiteboard-theme.el    2011-09-13 01:55:46 +0000
+++ b/etc/themes/whiteboard-theme.el    2011-10-18 06:17:05 +0000
@@ -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"))))

=== modified file 'etc/themes/wombat-theme.el'
--- a/etc/themes/wombat-theme.el        2011-06-14 05:06:26 +0000
+++ b/etc/themes/wombat-theme.el        2011-10-18 06:17:05 +0000
@@ -31,7 +31,7 @@
   (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"

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-10-17 22:21:48 +0000
+++ b/lisp/ChangeLog    2011-10-18 06:17:05 +0000
@@ -1,3 +1,7 @@
+2011-10-18  Chong Yidong  <address@hidden>
+
+       * faces.el (cursor): Doc fix.
+
 2011-10-17  Chong Yidong  <address@hidden>
 
        * font-lock.el (font-lock-maximum-size): Mark as obsolete.

=== modified file 'lisp/faces.el'
--- a/lisp/faces.el     2011-10-02 23:53:59 +0000
+++ b/lisp/faces.el     2011-10-18 06:17:05 +0000
@@ -2366,6 +2366,10 @@
   '((((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