# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1019218427 0
# Node ID 7a20e252e50a20ea860a8a6fe6afea7de97b0172
# Parent  04976f1e1ec2245df026f62da0e2d829656a2156
(Qhbar): New variable.
(syms_of_msdos): intern and staticpro it.
(IT_set_cursor_type, IT_set_frame_parameters): Handle the `hbar'
cursor type.

diff -r 04976f1e1ec2 -r 7a20e252e50a src/msdos.c
--- a/src/msdos.c	Fri Apr 19 12:06:06 2002 +0000
+++ b/src/msdos.c	Fri Apr 19 12:13:47 2002 +0000
@@ -412,7 +412,7 @@
 /* A flag to control how to display unibyte 8-bit characters.  */
 extern int unibyte_display_via_language_environment;
 
-Lisp_Object Qbar;
+Lisp_Object Qbar, Qhbar;
 
 /* The screen colors of the curent frame, which serve as the default
    colors for newly-created frames.  */
@@ -820,12 +820,14 @@
 static void
 IT_set_cursor_type (struct frame *f, Lisp_Object cursor_type)
 {
-  if (EQ (cursor_type, Qbar))
+  if (EQ (cursor_type, Qbar) || EQ (cursor_type, Qhbar))
     {
       /* Just BAR means the normal EGA/VGA cursor.  */
       msdos_set_cursor_shape (f, DEFAULT_CURSOR_START, DEFAULT_CURSOR_WIDTH);
     }
-  else if (CONSP (cursor_type) && EQ (XCAR (cursor_type), Qbar))
+  else if (CONSP (cursor_type)
+	   && (EQ (XCAR (cursor_type), Qbar)
+	       || EQ (XCAR (cursor_type), Qhbar)))
     {
       Lisp_Object bar_parms = XCDR (cursor_type);
       int width;
@@ -2477,7 +2479,9 @@
 	  IT_set_cursor_type (f, val);
 	  if (termscript)
 	    fprintf (termscript, "<CTYPE: %s>\n",
-		     EQ (val, Qbar) || CONSP (val) && EQ (XCAR (val), Qbar)
+		     EQ (val, Qbar) || EQ (val, Qhbar)
+		     || CONSP (val) && (EQ (XCAR (val), Qbar)
+					|| EQ (XCAR (val), Qhbar))
 		     ? "bar" : "box");
 	}
       store_frame_param (f, prop, val);
@@ -5351,6 +5355,8 @@
   /* The following two are from xfns.c:  */
   Qbar = intern ("bar");
   staticpro (&Qbar);
+  Qhbar = intern ("hbar");
+  staticpro (&Qhbar);
   Qcursor_type = intern ("cursor-type");
   staticpro (&Qcursor_type);
   Qreverse = intern ("reverse");