comparison src/redisplay.c @ 3025:facf3239ba30

[xemacs-hg @ 2005-10-25 11:16:19 by ben] rename new->new_, convert 'foo to `foo' EmacsFrame.c, ExternalClient.c, ExternalShell.c, chartab.c, cmdloop.c, compiler.h, console.c, database.c, device-msw.c, device-x.c, device.c, doc.c, dragdrop.c, eval.c, event-msw.c, event-stream.c, events.c, extents.c, file-coding.c, fns.c, frame-tty.c, frame.c, gpmevent.c, gutter.c, hash.c, imgproc.c, indent.c, keymap.c, lisp-union.h, macros.c, malloc.c, marker.c, menubar-x.c, menubar.c, mule-charset.c, number.c, process.c, profile.h, ralloc.c, redisplay.c, select-common.h, select.c, syntax.c, sysfile.h, sysproc.h, systime.h, syswindows.h, toolbar.c, tooltalk.c, tparam.c, unexaix.c, unexalpha.c, unexconvex.c, unexec.c, unexhp9k800.c, unexmips.c, unicode.c, window.c: new -> new_. 'foo -> `foo'. lwlib-internal.h: redo assert macros to follow lisp.h and not trigger warnings. lwlib.c, xlwtabs.c: new -> new_.
author ben
date Tue, 25 Oct 2005 11:16:49 +0000
parents 166ed8151e62
children ad2f4ae9895b
comparison
equal deleted inserted replaced
3024:b7f26b2f78bd 3025:facf3239ba30
1 /* Display generation from window structure and buffer text. 1 /* Display generation from window structure and buffer text.
2 Copyright (C) 1994, 1995, 1996 Board of Trustees, University of Illinois. 2 Copyright (C) 1994, 1995, 1996 Board of Trustees, University of Illinois.
3 Copyright (C) 1995 Free Software Foundation, Inc. 3 Copyright (C) 1995 Free Software Foundation, Inc.
4 Copyright (C) 1995, 1996, 2000, 2001, 2002, 2003 Ben Wing. 4 Copyright (C) 1995, 1996, 2000, 2001, 2002, 2003, 2005 Ben Wing.
5 Copyright (C) 1995 Sun Microsystems, Inc. 5 Copyright (C) 1995 Sun Microsystems, Inc.
6 Copyright (C) 1996 Chuck Thompson. 6 Copyright (C) 1996 Chuck Thompson.
7 7
8 This file is part of XEmacs. 8 This file is part of XEmacs.
9 9
470 where one page is used for Emacs and another for all else. */ 470 where one page is used for Emacs and another for all else. */
471 int no_redraw_on_reenter; 471 int no_redraw_on_reenter;
472 472
473 Lisp_Object Vwindow_system; /* nil or a symbol naming the window system 473 Lisp_Object Vwindow_system; /* nil or a symbol naming the window system
474 under which emacs is running 474 under which emacs is running
475 ('x is the only current possibility) */ 475 (`x' is the only current possibility) */
476 Lisp_Object Vinitial_window_system; 476 Lisp_Object Vinitial_window_system;
477 477
478 Lisp_Object Vglobal_mode_string; 478 Lisp_Object Vglobal_mode_string;
479 479
480 /* The number of lines scroll a window by when point leaves the window; if 480 /* The number of lines scroll a window by when point leaves the window; if
713 might still be allocated blocks we need to reuse. */ 713 might still be allocated blocks we need to reuse. */
714 if (elt < Dynarr_largest (dl->display_blocks)) 714 if (elt < Dynarr_largest (dl->display_blocks))
715 { 715 {
716 struct display_block *dbp = Dynarr_atp (dl->display_blocks, elt); 716 struct display_block *dbp = Dynarr_atp (dl->display_blocks, elt);
717 717
718 /* 'add' the block to the list */ 718 /* "add" the block to the list */
719 Dynarr_increment (dl->display_blocks); 719 Dynarr_increment (dl->display_blocks);
720 720
721 /* initialize and return */ 721 /* initialize and return */
722 dbp->type = type; 722 dbp->type = type;
723 return dbp; 723 return dbp;
1782 Dynarr_free (*prop); 1782 Dynarr_free (*prop);
1783 return NULL; 1783 return NULL;
1784 } 1784 }
1785 } 1785 }
1786 1786
1787 /* Add 'text layout glyphs at position POS_TYPE that are contained to 1787 /* Add `text' layout glyphs at position POS_TYPE that are contained to
1788 the display block, but add all other types to the appropriate list 1788 the display block, but add all other types to the appropriate list
1789 of the display line. They will be added later by different 1789 of the display line. They will be added later by different
1790 routines. */ 1790 routines. */
1791 1791
1792 static prop_block_dynarr * 1792 static prop_block_dynarr *
6862 assert (!f->size_slipped); 6862 assert (!f->size_slipped);
6863 } 6863 }
6864 6864
6865 /* The menubar, toolbar, and icon updates should be done before 6865 /* The menubar, toolbar, and icon updates should be done before
6866 enter_redisplay_critical_section is called and we are officially 6866 enter_redisplay_critical_section is called and we are officially
6867 'in_display'. They is because they tend to eval Lisp code, which 6867 `in_display'. They is because they tend to eval Lisp code, which
6868 needs to be carefully wrapped within the critical section (and hence 6868 needs to be carefully wrapped within the critical section (and hence
6869 is difficult to debug). */ 6869 is difficult to debug). */
6870 6870
6871 #ifdef HAVE_MENUBARS 6871 #ifdef HAVE_MENUBARS
6872 /* Update the menubar. It is done first since it could change 6872 /* Update the menubar. It is done first since it could change
9907 *Non-nil substitutes a visual signal for the audible bell. 9907 *Non-nil substitutes a visual signal for the audible bell.
9908 9908
9909 Default behavior is to flash the whole screen. On some platforms, 9909 Default behavior is to flash the whole screen. On some platforms,
9910 special effects are available using the following values: 9910 special effects are available using the following values:
9911 9911
9912 'display Flash the whole screen (ie, the default behavior). 9912 `display' Flash the whole screen (ie, the default behavior).
9913 'top-bottom Flash only the top and bottom lines of the selected frame. 9913 `top-bottom' Flash only the top and bottom lines of the selected frame.
9914 9914
9915 When effects are unavailable on a platform, the visual bell is the 9915 When effects are unavailable on a platform, the visual bell is the
9916 default, whole screen. (Currently only X supports any special effects.) 9916 default, whole screen. (Currently only X supports any special effects.)
9917 */ ); 9917 */ );
9918 Vvisible_bell = Qnil; 9918 Vvisible_bell = Qnil;
10041 some_window_value_changed, 10041 some_window_value_changed,
10042 0, 0, 0); 10042 0, 0, 0);
10043 10043
10044 DEFVAR_SPECIFIER ("use-left-overflow", &Vuse_left_overflow /* 10044 DEFVAR_SPECIFIER ("use-left-overflow", &Vuse_left_overflow /*
10045 *Non-nil means use the left outside margin as extra whitespace when 10045 *Non-nil means use the left outside margin as extra whitespace when
10046 displaying 'whitespace or 'inside-margin glyphs. 10046 displaying `whitespace' or `inside-margin' glyphs.
10047 This is a specifier; use `set-specifier' to change it. 10047 This is a specifier; use `set-specifier' to change it.
10048 */ ); 10048 */ );
10049 Vuse_left_overflow = Fmake_specifier (Qboolean); 10049 Vuse_left_overflow = Fmake_specifier (Qboolean);
10050 set_specifier_fallback (Vuse_left_overflow, list1 (Fcons (Qnil, Qnil))); 10050 set_specifier_fallback (Vuse_left_overflow, list1 (Fcons (Qnil, Qnil)));
10051 set_specifier_caching (Vuse_left_overflow, 10051 set_specifier_caching (Vuse_left_overflow,
10053 some_window_value_changed, 10053 some_window_value_changed,
10054 0, 0, 0); 10054 0, 0, 0);
10055 10055
10056 DEFVAR_SPECIFIER ("use-right-overflow", &Vuse_right_overflow /* 10056 DEFVAR_SPECIFIER ("use-right-overflow", &Vuse_right_overflow /*
10057 *Non-nil means use the right outside margin as extra whitespace when 10057 *Non-nil means use the right outside margin as extra whitespace when
10058 displaying 'whitespace or 'inside-margin glyphs. 10058 displaying `whitespace' or `inside-margin' glyphs.
10059 This is a specifier; use `set-specifier' to change it. 10059 This is a specifier; use `set-specifier' to change it.
10060 */ ); 10060 */ );
10061 Vuse_right_overflow = Fmake_specifier (Qboolean); 10061 Vuse_right_overflow = Fmake_specifier (Qboolean);
10062 set_specifier_fallback (Vuse_right_overflow, list1 (Fcons (Qnil, Qnil))); 10062 set_specifier_fallback (Vuse_right_overflow, list1 (Fcons (Qnil, Qnil)));
10063 set_specifier_caching (Vuse_right_overflow, 10063 set_specifier_caching (Vuse_right_overflow,