/[emacs]/emacs/src/w32console.c
ViewVC logotype

Diff of /emacs/src/w32console.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by pj, Fri Nov 2 20:34:48 2001 UTC revision 1.32 by jasonr, Mon Nov 12 23:51:11 2001 UTC
# Line 420  w32_sys_ring_bell (void) Line 420  w32_sys_ring_bell (void)
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  {  {
# Line 682  initialize_w32_display (void) Line 682  initialize_w32_display (void)
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;
# Line 694  DEFUN ("set-screen-color", Fset_screen_c Line 694  DEFUN ("set-screen-color", Fset_screen_c
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  {  {
# Line 728  syms_of_ntterm () Line 728  syms_of_ntterm ()
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);

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26