886 |
"Set the background color of the selected frame to COLOR-NAME. |
"Set the background color of the selected frame to COLOR-NAME. |
887 |
When called interactively, prompt for the name of the color to use. |
When called interactively, prompt for the name of the color to use. |
888 |
To get the frame's current background color, use `frame-parameters'." |
To get the frame's current background color, use `frame-parameters'." |
889 |
(interactive (list (facemenu-read-color))) |
(interactive (list (facemenu-read-color "Background color: "))) |
890 |
(modify-frame-parameters (selected-frame) |
(modify-frame-parameters (selected-frame) |
891 |
(list (cons 'background-color color-name))) |
(list (cons 'background-color color-name))) |
892 |
(or window-system |
(or window-system |
896 |
"Set the foreground color of the selected frame to COLOR-NAME. |
"Set the foreground color of the selected frame to COLOR-NAME. |
897 |
When called interactively, prompt for the name of the color to use. |
When called interactively, prompt for the name of the color to use. |
898 |
To get the frame's current foreground color, use `frame-parameters'." |
To get the frame's current foreground color, use `frame-parameters'." |
899 |
(interactive (list (facemenu-read-color))) |
(interactive (list (facemenu-read-color "Foreground color: "))) |
900 |
(modify-frame-parameters (selected-frame) |
(modify-frame-parameters (selected-frame) |
901 |
(list (cons 'foreground-color color-name))) |
(list (cons 'foreground-color color-name))) |
902 |
(or window-system |
(or window-system |
906 |
"Set the text cursor color of the selected frame to COLOR-NAME. |
"Set the text cursor color of the selected frame to COLOR-NAME. |
907 |
When called interactively, prompt for the name of the color to use. |
When called interactively, prompt for the name of the color to use. |
908 |
To get the frame's current cursor color, use `frame-parameters'." |
To get the frame's current cursor color, use `frame-parameters'." |
909 |
(interactive (list (facemenu-read-color))) |
(interactive (list (facemenu-read-color "Cursor color: "))) |
910 |
(modify-frame-parameters (selected-frame) |
(modify-frame-parameters (selected-frame) |
911 |
(list (cons 'cursor-color color-name)))) |
(list (cons 'cursor-color color-name)))) |
912 |
|
|
914 |
"Set the color of the mouse pointer of the selected frame to COLOR-NAME. |
"Set the color of the mouse pointer of the selected frame to COLOR-NAME. |
915 |
When called interactively, prompt for the name of the color to use. |
When called interactively, prompt for the name of the color to use. |
916 |
To get the frame's current mouse color, use `frame-parameters'." |
To get the frame's current mouse color, use `frame-parameters'." |
917 |
(interactive (list (facemenu-read-color))) |
(interactive (list (facemenu-read-color "Mouse color: "))) |
918 |
(modify-frame-parameters (selected-frame) |
(modify-frame-parameters (selected-frame) |
919 |
(list (cons 'mouse-color |
(list (cons 'mouse-color |
920 |
(or color-name |
(or color-name |
925 |
"Set the color of the border of the selected frame to COLOR-NAME. |
"Set the color of the border of the selected frame to COLOR-NAME. |
926 |
When called interactively, prompt for the name of the color to use. |
When called interactively, prompt for the name of the color to use. |
927 |
To get the frame's current border color, use `frame-parameters'." |
To get the frame's current border color, use `frame-parameters'." |
928 |
(interactive (list (facemenu-read-color))) |
(interactive (list (facemenu-read-color "Border color: "))) |
929 |
(modify-frame-parameters (selected-frame) |
(modify-frame-parameters (selected-frame) |
930 |
(list (cons 'border-color color-name)))) |
(list (cons 'border-color color-name)))) |
931 |
|
|
1203 |
(defcustom show-trailing-whitespace nil |
(defcustom show-trailing-whitespace nil |
1204 |
"*Non-nil means highlight trailing whitespace. |
"*Non-nil means highlight trailing whitespace. |
1205 |
This is done in the face `trailing-whitespace'." |
This is done in the face `trailing-whitespace'." |
|
:tag "Highlight trailing whitespace." |
|
1206 |
:type 'boolean |
:type 'boolean |
1207 |
:group 'whitespace-faces) |
:group 'whitespace-faces) |
1208 |
|
|
1234 |
|
|
1235 |
(defcustom blink-cursor-delay 0.5 |
(defcustom blink-cursor-delay 0.5 |
1236 |
"*Seconds of idle time after which cursor starts to blink." |
"*Seconds of idle time after which cursor starts to blink." |
|
:tag "Delay in seconds." |
|
1237 |
:type 'number |
:type 'number |
1238 |
:group 'cursor) |
:group 'cursor) |
1239 |
|
|
1240 |
(defcustom blink-cursor-interval 0.5 |
(defcustom blink-cursor-interval 0.5 |
1241 |
"*Length of cursor blink interval in seconds." |
"*Length of cursor blink interval in seconds." |
|
:tag "Blink interval in seconds." |
|
1242 |
:type 'number |
:type 'number |
1243 |
:group 'cursor) |
:group 'cursor) |
1244 |
|
|
1314 |
;; Hourglass pointer |
;; Hourglass pointer |
1315 |
|
|
1316 |
(defcustom display-hourglass t |
(defcustom display-hourglass t |
1317 |
"*Non-nil means show an hourglass pointer when running under a window system." |
"*Non-nil to show an hourglass pointer when Emacs is busy on a window system." |
|
:tag "Hourglass pointer" |
|
1318 |
:type 'boolean |
:type 'boolean |
1319 |
:group 'cursor) |
:group 'cursor) |
1320 |
|
|
1321 |
(defcustom hourglass-delay 1 |
(defcustom hourglass-delay 1 |
1322 |
"*Seconds to wait before displaying an hourglass pointer." |
"*Seconds to wait before displaying an hourglass pointer when Emacs is busy." |
|
:tag "Hourglass delay" |
|
1323 |
:type 'number |
:type 'number |
1324 |
:group 'cursor) |
:group 'cursor) |
1325 |
|
|
1328 |
"*Non-nil means show a hollow box cursor in non-selected windows. |
"*Non-nil means show a hollow box cursor in non-selected windows. |
1329 |
If nil, don't show a cursor except in the selected window. |
If nil, don't show a cursor except in the selected window. |
1330 |
Use Custom to set this variable to get the display updated." |
Use Custom to set this variable to get the display updated." |
1331 |
:tag "Cursor in non-selected windows" |
:tag "Cursor In Non-selected Windows" |
1332 |
:type 'boolean |
:type 'boolean |
1333 |
:group 'cursor |
:group 'cursor |
1334 |
:set #'(lambda (symbol value) |
:set #'(lambda (symbol value) |