Mercurial > hg > xemacs-beta

comparison src/window.c @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 558f606b08ae
children e11d67e05968
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
717 return 1; 717 return 1;
718 718
719 return 0; 719 return 0;
720 } 720 }
721 721
722 int 722 static int
723 have_undivided_common_edge (struct window *w_right, void *closure) 723 have_undivided_common_edge (struct window *w_right, void *closure)
724 { 724 {
725 struct window *w_left = (struct window *) closure; 725 struct window *w_left = (struct window *) closure;
726 return (WINDOW_RIGHT (w_left) == WINDOW_LEFT (w_right) 726 return (WINDOW_RIGHT (w_left) == WINDOW_LEFT (w_right)
727 && WINDOW_TOP (w_left) < WINDOW_BOTTOM (w_right) 727 && WINDOW_TOP (w_left) < WINDOW_BOTTOM (w_right)
752 && !ZEROP (w->scrollbar_width)) 752 && !ZEROP (w->scrollbar_width))
753 return 0; 753 return 0;
754 #endif 754 #endif
755 755
756 /* Ok. to determine whether we need a divider on the left, we must 756 /* Ok. to determine whether we need a divider on the left, we must
757 check that out right neighbor windows have scrollbars on their 757 check that our right neighbor windows have scrollbars on their
758 left sides. We mist check all such windows which have common 758 left sides. We must check all such windows which have common
759 left edge with our window's right edge. */ 759 left edge with our window's right edge. */
760 return map_windows (XFRAME (WINDOW_FRAME (w)), 760 return map_windows (XFRAME (WINDOW_FRAME (w)),
761 have_undivided_common_edge, (void*)w); 761 have_undivided_common_edge, (void*)w);
762 } 762 }
763 763
4357 /* Map MAPFUN over the windows in F. CLOSURE is passed to each 4357 /* Map MAPFUN over the windows in F. CLOSURE is passed to each
4358 invocation of MAPFUN. If any invocation of MAPFUN returns 4358 invocation of MAPFUN. If any invocation of MAPFUN returns
4359 non-zero, the mapping is halted. Otherwise, map_windows() maps 4359 non-zero, the mapping is halted. Otherwise, map_windows() maps
4360 over all windows in F. 4360 over all windows in F.
4361 4361
4362 If MAPFUN create or delete windows, the behaviour is undefined. */ 4362 If MAPFUN creates or deletes windows, the behaviour is undefined. */
4363 4363
4364 int 4364 int
4365 map_windows (struct frame *f, int (*mapfun) (struct window *w, void *closure), 4365 map_windows (struct frame *f, int (*mapfun) (struct window *w, void *closure),
4366 void *closure) 4366 void *closure)
4367 { 4367 {
4377 mapfun, closure); 4377 mapfun, closure);
4378 if (v) 4378 if (v)
4379 return v; 4379 return v;
4380 } 4380 }
4381 } 4381 }
4382
4383 return 0;
4382 } 4384 }
4383 4385
4384 4386
4385 static void 4387 static void
4386 modeline_shadow_thickness_changed (Lisp_Object specifier, struct window *w, 4388 modeline_shadow_thickness_changed (Lisp_Object specifier, struct window *w,
5584 For TTY windows, divider line is always one character wide. When 5586 For TTY windows, divider line is always one character wide. When
5585 instance of this specifier is zero in a TTY window, no divider is 5587 instance of this specifier is zero in a TTY window, no divider is
5586 drawn at all between windows. When non-zero, one character wide 5588 drawn at all between windows. When non-zero, one character wide
5587 divider is displayed. 5589 divider is displayed.
5588 5590
5589 *Whether the modeline should be displayed.
5590 This is a specifier; use `set-specifier' to change it. 5591 This is a specifier; use `set-specifier' to change it.
5591 */ ); 5592 */ );
5592 5593
5593 Vvertical_divider_line_width = Fmake_specifier (Qnatnum); 5594 Vvertical_divider_line_width = Fmake_specifier (Qnatnum);
5594 { 5595 {
5625 #ifdef HAVE_TTY 5626 #ifdef HAVE_TTY
5626 fb = Fcons (Fcons (list1 (Qtty), Qzero), fb); 5627 fb = Fcons (Fcons (list1 (Qtty), Qzero), fb);
5627 #endif 5628 #endif
5628 #ifdef HAVE_X_WINDOWS 5629 #ifdef HAVE_X_WINDOWS
5629 /* #### 3D dividers look great on MS Windows with spacing = 0. 5630 /* #### 3D dividers look great on MS Windows with spacing = 0.
5630 Shoud not the same value be the fallback under X? - kkm */ 5631 Should not the same value be the fallback under X? - kkm */
5631 fb = Fcons (Fcons (list1 (Qx), make_int (2)), fb); 5632 fb = Fcons (Fcons (list1 (Qx), make_int (2)), fb);
5632 #endif 5633 #endif
5633 #ifdef HAVE_MS_WINDOWS 5634 #ifdef HAVE_MS_WINDOWS
5634 fb = Fcons (Fcons (list1 (Qmswindows), Qzero), fb); 5635 fb = Fcons (Fcons (list1 (Qmswindows), Qzero), fb);
5635 #endif 5636 #endif