Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-435

Implement tty vertical-divider face

2005-06-20  Miles Bader  <miles@gnu.org>

   * lisp/faces.el (vertical-divider): New face.

2005-06-20  Miles Bader  <miles@gnu.org>

   * man/display.texi (Faces): Add `vertical-divider'.

2005-06-20  Miles Bader  <miles@gnu.org>

   * 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.

1 files changed, 9 insertions, 4 deletions

diff --git a/src/dispnew.c b/src/dispnew.c
index 727547d089d..5b0069b03c2 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -2719,10 +2719,15 @@ build_frame_matrix_from_leaf_window (frame_matrix, w)
       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);
+
+          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