Mercurial > hg > xemacs-beta

comparison src/window.c @ 355:182f72e8cd0d r21-1-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-7
author cvs
date Mon, 13 Aug 2007 10:56:21 +0200
parents 7c94d56991e1
children 30d2cfa1092a
comparison
equal deleted inserted replaced
354:3729bef672e0 355:182f72e8cd0d
699 #endif 699 #endif
700 700
701 int 701 int
702 window_truncation_on (struct window *w) 702 window_truncation_on (struct window *w)
703 { 703 {
704 /* Minibuffer windows are never truncated.
705 ### is this the right way ? */
706 if (EQ (w->mini_p, Qt))
707 return 0;
708
704 /* Horizontally scrolled windows are truncated. */ 709 /* Horizontally scrolled windows are truncated. */
705 if (w->hscroll) 710 if (w->hscroll)
706 return 1; 711 return 1;
707 712
708 /* If truncate_partial_width_windows is true and the window is not 713 /* If truncate_partial_width_windows is true and the window is not
716 if (!NILP (XBUFFER (w->buffer)->truncate_lines)) 721 if (!NILP (XBUFFER (w->buffer)->truncate_lines))
717 return 1; 722 return 1;
718 723
719 return 0; 724 return 0;
720 } 725 }
726
727 DEFUN ("window-truncated-p", Fwindow_truncated_p, 0, 1, 0, /*
728 Returns Non-Nil iff the window is truncated.
729 */
730 (window))
731 {
732 struct window *w = decode_window (window);
733
734 return window_truncation_on (w) ? Qt : Qnil;
735 }
736
721 737
722 static int 738 static int
723 have_undivided_common_edge (struct window *w_right, void *closure) 739 have_undivided_common_edge (struct window *w_right, void *closure)
724 { 740 {
725 struct window *w_left = (struct window *) closure; 741 struct window *w_left = (struct window *) closure;
5568 DEFSUBR (Fwindow_first_vchild); 5584 DEFSUBR (Fwindow_first_vchild);
5569 DEFSUBR (Fwindow_next_child); 5585 DEFSUBR (Fwindow_next_child);
5570 DEFSUBR (Fwindow_previous_child); 5586 DEFSUBR (Fwindow_previous_child);
5571 DEFSUBR (Fwindow_parent); 5587 DEFSUBR (Fwindow_parent);
5572 DEFSUBR (Fwindow_lowest_p); 5588 DEFSUBR (Fwindow_lowest_p);
5589 DEFSUBR (Fwindow_truncated_p);
5573 DEFSUBR (Fwindow_highest_p); 5590 DEFSUBR (Fwindow_highest_p);
5574 DEFSUBR (Fwindow_leftmost_p); 5591 DEFSUBR (Fwindow_leftmost_p);
5575 DEFSUBR (Fwindow_rightmost_p); 5592 DEFSUBR (Fwindow_rightmost_p);
5576 DEFSUBR (Fpos_visible_in_window_p); 5593 DEFSUBR (Fpos_visible_in_window_p);
5577 DEFSUBR (Fwindow_buffer); 5594 DEFSUBR (Fwindow_buffer);