comparison src/dispnew.c @ 63594:4c33b0ac74a3

Revision: [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-435 Implement tty vertical-divider face 2005-06-20 Miles Bader <[e-mail]> * lisp/faces.el (vertical-divider): New face. 2005-06-20 Miles Bader <[e-mail]> * man/display.texi (Faces): Add `vertical-divider'. 2005-06-20 Miles Bader <[e-mail]> * src/xfaces.c (Qvertical_divider): New variable. (realize_basic_faces): Realize its face. (syms_of_xfaces): Initialize it. * src/dispextern.h (enum face_id): Add `VERTICAL_DIVIDER_FACE_ID'. * src/dispnew.c (build_frame_matrix_from_leaf_window): Display vertical window-separator on ttys using `vertical-divider' face by default.

63593:5300b48844ca

      /* Decide whether we want to add a vertical border glyph.  */
      if (!WINDOW_RIGHTMOST_P (w))
	{
	  struct Lisp_Char_Table *dp = window_display_table (w);
	  right_border_glyph = (dp && INTEGERP (DISP_BORDER_GLYPH (dp))
				? XINT (DISP_BORDER_GLYPH (dp))
				: '|');
	  right_border_glyph = spec_glyph_lookup_face (w, right_border_glyph);
	}
    }
  else
    window_matrix = w->current_matrix;

63594:4c33b0ac74a3

      /* Decide whether we want to add a vertical border glyph.  */
      if (!WINDOW_RIGHTMOST_P (w))
	{
	  struct Lisp_Char_Table *dp = window_display_table (w);

	  right_border_glyph
	    = ((dp && INTEGERP (DISP_BORDER_GLYPH (dp)))
	       ? spec_glyph_lookup_face (w, XINT (DISP_BORDER_GLYPH (dp)))
	       : '|');

	  if (FAST_GLYPH_FACE (right_border_glyph) <= 0)
	    right_border_glyph
	      = FAST_MAKE_GLYPH (right_border_glyph, VERTICAL_DIVIDER_FACE_ID);
	}
    }
  else
    window_matrix = w->current_matrix;