diff options
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index a20317047c2..0061119c04e 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -962,7 +962,7 @@ See `modify-frame-parameters.'" "Set the background color of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current background color, use `frame-parameters'." - (interactive (list (facemenu-read-color))) + (interactive (list (facemenu-read-color "Background color: "))) (modify-frame-parameters (selected-frame) (list (cons 'background-color color-name))) (or window-system @@ -972,7 +972,7 @@ To get the frame's current background color, use `frame-parameters'." "Set the foreground color of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current foreground color, use `frame-parameters'." - (interactive (list (facemenu-read-color))) + (interactive (list (facemenu-read-color "Foreground color: "))) (modify-frame-parameters (selected-frame) (list (cons 'foreground-color color-name))) (or window-system @@ -982,7 +982,7 @@ To get the frame's current foreground color, use `frame-parameters'." "Set the text cursor color of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current cursor color, use `frame-parameters'." - (interactive (list (facemenu-read-color))) + (interactive (list (facemenu-read-color "Cursor color: "))) (modify-frame-parameters (selected-frame) (list (cons 'cursor-color color-name)))) @@ -990,7 +990,7 @@ To get the frame's current cursor color, use `frame-parameters'." "Set the color of the mouse pointer of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current mouse color, use `frame-parameters'." - (interactive (list (facemenu-read-color))) + (interactive (list (facemenu-read-color "Mouse color: "))) (modify-frame-parameters (selected-frame) (list (cons 'mouse-color (or color-name @@ -1001,7 +1001,7 @@ To get the frame's current mouse color, use `frame-parameters'." "Set the color of the border of the selected frame to COLOR-NAME. When called interactively, prompt for the name of the color to use. To get the frame's current border color, use `frame-parameters'." - (interactive (list (facemenu-read-color))) + (interactive (list (facemenu-read-color "Border color: "))) (modify-frame-parameters (selected-frame) (list (cons 'border-color color-name)))) @@ -1283,7 +1283,6 @@ left untouched. FRAME nil or omitted means use the selected frame." (defcustom show-trailing-whitespace nil "*Non-nil means highlight trailing whitespace. This is done in the face `trailing-whitespace'." - :tag "Highlight trailing whitespace." :type 'boolean :group 'whitespace-faces) @@ -1315,13 +1314,11 @@ point visible." (defcustom blink-cursor-delay 0.5 "*Seconds of idle time after which cursor starts to blink." - :tag "Delay in seconds." :type 'number :group 'cursor) (defcustom blink-cursor-interval 0.5 "*Length of cursor blink interval in seconds." - :tag "Blink interval in seconds." :type 'number :group 'cursor) @@ -1397,14 +1394,14 @@ itself as a pre-command hook." ;; Hourglass pointer (defcustom display-hourglass t - "*Non-nil means show an hourglass pointer when running under a window system." - :tag "Hourglass pointer" + "*Non-nil means show an hourglass pointer, when Emacs is busy. +This feature only works when on a window system that can change +cursor shapes." :type 'boolean :group 'cursor) (defcustom hourglass-delay 1 - "*Seconds to wait before displaying an hourglass pointer." - :tag "Hourglass delay" + "*Seconds to wait before displaying an hourglass pointer when Emacs is busy." :type 'number :group 'cursor) @@ -1413,7 +1410,7 @@ itself as a pre-command hook." "*Non-nil means show a hollow box cursor in non-selected windows. If nil, don't show a cursor except in the selected window. Use Custom to set this variable to get the display updated." - :tag "Cursor in non-selected windows" + :tag "Cursor In Non-selected Windows" :type 'boolean :group 'cursor :set #'(lambda (symbol value) |