Mercurial > emacs
comparison src/dispnew.c @ 40979:a3a3b477c670
(Fsit_for): Reindent.
(Fframe_or_buffer_changed_p): Likewise.
(Finternal_show_cursor_p): Likewise.
(syms_of_display): Likewise.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Tue, 13 Nov 2001 06:57:12 +0000 |
parents | cdfd4d09b79a |
children | 4feeae90afa4 |
comparison
equal
deleted
inserted
replaced
40978:e5fd2fc53217 | 40979:a3a3b477c670 |
---|---|
6197 return detect_input_pending () ? Qnil : Qt; | 6197 return detect_input_pending () ? Qnil : Qt; |
6198 } | 6198 } |
6199 | 6199 |
6200 | 6200 |
6201 DEFUN ("sit-for", Fsit_for, Ssit_for, 1, 3, 0, | 6201 DEFUN ("sit-for", Fsit_for, Ssit_for, 1, 3, 0, |
6202 doc: /* Perform redisplay, then wait for SECONDS seconds or until input is available. | 6202 doc: /* Perform redisplay, then wait for SECONDS seconds or until input is available. |
6203 SECONDS may be a floating-point value, meaning that you can wait for a | 6203 SECONDS may be a floating-point value, meaning that you can wait for a |
6204 fraction of a second. Optional second arg MILLISECONDS specifies an | 6204 fraction of a second. Optional second arg MILLISECONDS specifies an |
6205 additional wait period, in milliseconds; this may be useful if your | 6205 additional wait period, in milliseconds; this may be useful if your |
6206 Emacs was built without floating point support. | 6206 Emacs was built without floating point support. |
6207 \(Not all operating systems support waiting for a fraction of a second.) | 6207 \(Not all operating systems support waiting for a fraction of a second.) |
6248 static Lisp_Object frame_and_buffer_state; | 6248 static Lisp_Object frame_and_buffer_state; |
6249 | 6249 |
6250 | 6250 |
6251 DEFUN ("frame-or-buffer-changed-p", Fframe_or_buffer_changed_p, | 6251 DEFUN ("frame-or-buffer-changed-p", Fframe_or_buffer_changed_p, |
6252 Sframe_or_buffer_changed_p, 0, 0, 0, | 6252 Sframe_or_buffer_changed_p, 0, 0, 0, |
6253 doc: /* Return non-nil if the frame and buffer state appears to have changed. | 6253 doc: /* Return non-nil if the frame and buffer state appears to have changed. |
6254 The state variable is an internal vector containing all frames and buffers, | 6254 The state variable is an internal vector containing all frames and buffers, |
6255 aside from buffers whose names start with space, | 6255 aside from buffers whose names start with space, |
6256 along with the buffers' read-only and modified flags, which allows a fast | 6256 along with the buffers' read-only and modified flags, which allows a fast |
6257 check to see whether the menu bars might need to be recomputed. | 6257 check to see whether the menu bars might need to be recomputed. |
6258 If this function returns non-nil, it updates the internal vector to reflect | 6258 If this function returns non-nil, it updates the internal vector to reflect |
6545 } | 6545 } |
6546 | 6546 |
6547 | 6547 |
6548 DEFUN ("internal-show-cursor-p", Finternal_show_cursor_p, | 6548 DEFUN ("internal-show-cursor-p", Finternal_show_cursor_p, |
6549 Sinternal_show_cursor_p, 0, 1, 0, | 6549 Sinternal_show_cursor_p, 0, 1, 0, |
6550 doc: /* Value is non-nil if next redisplay will display a cursor in WINDOW. | 6550 doc: /* Value is non-nil if next redisplay will display a cursor in WINDOW. |
6551 WINDOW nil or omitted means report on the selected window. */) | 6551 WINDOW nil or omitted means report on the selected window. */) |
6552 (window) | 6552 (window) |
6553 Lisp_Object window; | 6553 Lisp_Object window; |
6554 { | 6554 { |
6555 struct window *w; | 6555 struct window *w; |
6593 staticpro (&Qdisplay_table); | 6593 staticpro (&Qdisplay_table); |
6594 Qredisplay_dont_pause = intern ("redisplay-dont-pause"); | 6594 Qredisplay_dont_pause = intern ("redisplay-dont-pause"); |
6595 staticpro (&Qredisplay_dont_pause); | 6595 staticpro (&Qredisplay_dont_pause); |
6596 | 6596 |
6597 DEFVAR_INT ("baud-rate", &baud_rate, | 6597 DEFVAR_INT ("baud-rate", &baud_rate, |
6598 doc: /* *The output baud rate of the terminal. | 6598 doc: /* *The output baud rate of the terminal. |
6599 On most systems, changing this value will affect the amount of padding | 6599 On most systems, changing this value will affect the amount of padding |
6600 and the other strategic decisions made during redisplay. */); | 6600 and the other strategic decisions made during redisplay. */); |
6601 | 6601 |
6602 DEFVAR_BOOL ("inverse-video", &inverse_video, | 6602 DEFVAR_BOOL ("inverse-video", &inverse_video, |
6603 doc: /* *Non-nil means invert the entire frame display. | 6603 doc: /* *Non-nil means invert the entire frame display. |
6604 This means everything is in inverse video which otherwise would not be. */); | 6604 This means everything is in inverse video which otherwise would not be. */); |
6605 | 6605 |
6606 DEFVAR_BOOL ("visible-bell", &visible_bell, | 6606 DEFVAR_BOOL ("visible-bell", &visible_bell, |
6607 doc: /* *Non-nil means try to flash the frame to represent a bell. | 6607 doc: /* *Non-nil means try to flash the frame to represent a bell. |
6608 | 6608 |
6609 See also `ring-bell-function'. */); | 6609 See also `ring-bell-function'. */); |
6610 | 6610 |
6611 DEFVAR_BOOL ("no-redraw-on-reenter", &no_redraw_on_reenter, | 6611 DEFVAR_BOOL ("no-redraw-on-reenter", &no_redraw_on_reenter, |
6612 doc: /* *Non-nil means no need to redraw entire frame after suspending. | 6612 doc: /* *Non-nil means no need to redraw entire frame after suspending. |
6613 A non-nil value is useful if the terminal can automatically preserve | 6613 A non-nil value is useful if the terminal can automatically preserve |
6614 Emacs's frame display when you reenter Emacs. | 6614 Emacs's frame display when you reenter Emacs. |
6615 It is up to you to set this variable if your terminal can do that. */); | 6615 It is up to you to set this variable if your terminal can do that. */); |
6616 | 6616 |
6617 DEFVAR_LISP ("window-system", &Vwindow_system, | 6617 DEFVAR_LISP ("window-system", &Vwindow_system, |
6618 doc: /* A symbol naming the window-system under which Emacs is running | 6618 doc: /* A symbol naming the window-system under which Emacs is running |
6619 \(such as `x'), or nil if emacs is running on an ordinary terminal. */); | 6619 \(such as `x'), or nil if emacs is running on an ordinary terminal. */); |
6620 | 6620 |
6621 DEFVAR_LISP ("window-system-version", &Vwindow_system_version, | 6621 DEFVAR_LISP ("window-system-version", &Vwindow_system_version, |
6622 doc: /* The version number of the window system in use. | 6622 doc: /* The version number of the window system in use. |
6623 For X windows, this is 10 or 11. */); | 6623 For X windows, this is 10 or 11. */); |
6624 | 6624 |
6625 DEFVAR_BOOL ("cursor-in-echo-area", &cursor_in_echo_area, | 6625 DEFVAR_BOOL ("cursor-in-echo-area", &cursor_in_echo_area, |
6626 doc: /* Non-nil means put cursor in minibuffer, at end of any message there. */); | 6626 doc: /* Non-nil means put cursor in minibuffer, at end of any message there. */); |
6627 | 6627 |
6628 DEFVAR_LISP ("glyph-table", &Vglyph_table, | 6628 DEFVAR_LISP ("glyph-table", &Vglyph_table, |
6629 doc: /* Table defining how to output a glyph code to the frame. | 6629 doc: /* Table defining how to output a glyph code to the frame. |
6630 If not nil, this is a vector indexed by glyph code to define the glyph. | 6630 If not nil, this is a vector indexed by glyph code to define the glyph. |
6631 Each element can be: | 6631 Each element can be: |
6632 integer: a glyph code which this glyph is an alias for. | 6632 integer: a glyph code which this glyph is an alias for. |
6633 string: output this glyph using that string (not impl. in X windows). | 6633 string: output this glyph using that string (not impl. in X windows). |
6634 nil: this glyph mod 524288 is the code of a character to output, | 6634 nil: this glyph mod 524288 is the code of a character to output, |
6635 and this glyph / 524288 is the face number (see `face-id') to use | 6635 and this glyph / 524288 is the face number (see `face-id') to use |
6636 while outputting it. */); | 6636 while outputting it. */); |
6637 Vglyph_table = Qnil; | 6637 Vglyph_table = Qnil; |
6638 | 6638 |
6639 DEFVAR_LISP ("standard-display-table", &Vstandard_display_table, | 6639 DEFVAR_LISP ("standard-display-table", &Vstandard_display_table, |
6640 doc: /* Display table to use for buffers that specify none. | 6640 doc: /* Display table to use for buffers that specify none. |
6641 See `buffer-display-table' for more information. */); | 6641 See `buffer-display-table' for more information. */); |
6642 Vstandard_display_table = Qnil; | 6642 Vstandard_display_table = Qnil; |
6643 | 6643 |
6644 DEFVAR_BOOL ("redisplay-dont-pause", &redisplay_dont_pause, | 6644 DEFVAR_BOOL ("redisplay-dont-pause", &redisplay_dont_pause, |
6645 doc: /* *Non-nil means update isn't paused when input is detected. */); | 6645 doc: /* *Non-nil means update isn't paused when input is detected. */); |
6646 redisplay_dont_pause = 0; | 6646 redisplay_dont_pause = 0; |
6647 | 6647 |
6648 /* Initialize `window-system', unless init_display already decided it. */ | 6648 /* Initialize `window-system', unless init_display already decided it. */ |
6649 #ifdef CANNOT_DUMP | 6649 #ifdef CANNOT_DUMP |
6650 if (noninteractive) | 6650 if (noninteractive) |