420 |
} |
} |
421 |
|
|
422 |
DEFUN ("set-message-beep", Fset_message_beep, Sset_message_beep, 1, 1, 0, |
DEFUN ("set-message-beep", Fset_message_beep, Sset_message_beep, 1, 1, 0, |
423 |
"Set the sound generated when the bell is rung.\n\ |
doc: /* Set the sound generated when the bell is rung. |
424 |
SOUND is 'asterisk, 'exclamation, 'hand, 'question, 'ok, or 'silent\n\ |
SOUND is 'asterisk, 'exclamation, 'hand, 'question, 'ok, or 'silent |
425 |
to use the corresponding system sound for the bell. The 'silent sound\n\ |
to use the corresponding system sound for the bell. The 'silent sound |
426 |
prevents Emacs from making any sound at all.\n\ |
prevents Emacs from making any sound at all. |
427 |
SOUND is nil to use the normal beep.") |
SOUND is nil to use the normal beep. */) |
428 |
(sound) |
(sound) |
429 |
Lisp_Object sound; |
Lisp_Object sound; |
430 |
{ |
{ |
682 |
} |
} |
683 |
|
|
684 |
DEFUN ("set-screen-color", Fset_screen_color, Sset_screen_color, 2, 2, 0, |
DEFUN ("set-screen-color", Fset_screen_color, Sset_screen_color, 2, 2, 0, |
685 |
"Set screen colors.") |
doc: /* Set screen colors. */) |
686 |
(foreground, background) |
(foreground, background) |
687 |
Lisp_Object foreground; |
Lisp_Object foreground; |
688 |
Lisp_Object background; |
Lisp_Object background; |
694 |
} |
} |
695 |
|
|
696 |
DEFUN ("set-cursor-size", Fset_cursor_size, Sset_cursor_size, 1, 1, 0, |
DEFUN ("set-cursor-size", Fset_cursor_size, Sset_cursor_size, 1, 1, 0, |
697 |
"Set cursor size.") |
doc: /* Set cursor size. */) |
698 |
(size) |
(size) |
699 |
Lisp_Object size; |
Lisp_Object size; |
700 |
{ |
{ |
728 |
{ |
{ |
729 |
DEFVAR_BOOL ("w32-use-full-screen-buffer", |
DEFVAR_BOOL ("w32-use-full-screen-buffer", |
730 |
&w32_use_full_screen_buffer, |
&w32_use_full_screen_buffer, |
731 |
"Non-nil means make terminal frames use the full screen buffer dimensions.\n\ |
doc: /* Non-nil means make terminal frames use the full screen buffer dimensions. |
732 |
This is desirable when running Emacs over telnet, and is the default.\n\ |
This is desirable when running Emacs over telnet, and is the default. |
733 |
A value of nil means use the current console window dimensions; this\n\ |
A value of nil means use the current console window dimensions; this |
734 |
may be preferrable when working directly at the console with a large\n\ |
may be preferrable when working directly at the console with a large |
735 |
scroll-back buffer."); |
scroll-back buffer. */); |
736 |
w32_use_full_screen_buffer = 1; |
w32_use_full_screen_buffer = 1; |
737 |
|
|
738 |
defsubr (&Sset_screen_color); |
defsubr (&Sset_screen_color); |