diff options
| author | Luc Teirlinck | 2006-04-21 23:36:59 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2006-04-21 23:36:59 +0000 |
| commit | d390b4d26ff2d75c920b9be16383dd393b7601e4 (patch) | |
| tree | 010411b49b6104d6433fbf30d5a3c322170afbf2 | |
| parent | a9b2b70fe2f3bb420a2b300da6daa7fcb19ee504 (diff) | |
| download | emacs-d390b4d26ff2d75c920b9be16383dd393b7601e4.tar.gz emacs-d390b4d26ff2d75c920b9be16383dd393b7601e4.zip | |
(scroll-bar, border, cursor, mouse): Avoid nil spec in defface.
| -rw-r--r-- | lisp/faces.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 92a94192c36..14c57ed6e34 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -2143,19 +2143,19 @@ used to display the prompt text." | |||
| 2143 | :group 'frames | 2143 | :group 'frames |
| 2144 | :group 'basic-faces) | 2144 | :group 'basic-faces) |
| 2145 | 2145 | ||
| 2146 | (defface scroll-bar '() | 2146 | (defface scroll-bar '((t nil)) |
| 2147 | "Basic face for the scroll bar colors under X." | 2147 | "Basic face for the scroll bar colors under X." |
| 2148 | :version "21.1" | 2148 | :version "21.1" |
| 2149 | :group 'frames | 2149 | :group 'frames |
| 2150 | :group 'basic-faces) | 2150 | :group 'basic-faces) |
| 2151 | 2151 | ||
| 2152 | (defface border '() | 2152 | (defface border '((t nil)) |
| 2153 | "Basic face for the frame border under X." | 2153 | "Basic face for the frame border under X." |
| 2154 | :version "21.1" | 2154 | :version "21.1" |
| 2155 | :group 'frames | 2155 | :group 'frames |
| 2156 | :group 'basic-faces) | 2156 | :group 'basic-faces) |
| 2157 | 2157 | ||
| 2158 | (defface cursor '() | 2158 | (defface cursor '((t nil)) |
| 2159 | "Basic face for the cursor color under X. | 2159 | "Basic face for the cursor color under X. |
| 2160 | Note: Other faces cannot inherit from the cursor face." | 2160 | Note: Other faces cannot inherit from the cursor face." |
| 2161 | :version "21.1" | 2161 | :version "21.1" |
| @@ -2164,7 +2164,7 @@ Note: Other faces cannot inherit from the cursor face." | |||
| 2164 | 2164 | ||
| 2165 | (put 'cursor 'face-no-inherit t) | 2165 | (put 'cursor 'face-no-inherit t) |
| 2166 | 2166 | ||
| 2167 | (defface mouse '() | 2167 | (defface mouse '((t nil)) |
| 2168 | "Basic face for the mouse color under X." | 2168 | "Basic face for the mouse color under X." |
| 2169 | :version "21.1" | 2169 | :version "21.1" |
| 2170 | :group 'mouse | 2170 | :group 'mouse |