(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars

[gnu-emacs] / src / w32term.h

diff --git a/src/w32term.h b/src/w32term.h
index 3ebcea260af375a2d1d0907af205c2213d633618..e87ea67da9d3104549a212f8be46ecdf03b36c44 100644 (file)
--- a/src/w32term.h
+++ b/src/w32term.h
@@ -35,11 +35,15 @@ Boston, MA 02111-1307, USA.  */
 #define FONT_BASE(f)        \
   ((f)->bdf ? (f)->bdf->ury : (f)->tm.tmAscent)
 #define FONT_DESCENT(f)     \
-  ((f)->bdf ? (f)->bdf->lly : (f)->tm.tmDescent)
+  ((f)->bdf ? -((f)->bdf->lly) : (f)->tm.tmDescent)
 #define FONT_MAX_WIDTH(f)   \
   ((f)->bdf ? (f)->bdf->width : (f)->tm.tmMaxCharWidth)
 
 #define CP_DEFAULT 1004
+/* Special pseudo-codepages. */
+#define CP_8BIT      -1
+#define CP_UNICODE   -2
+#define CP_UNKNOWN   -3
 
 #define CHECK_W32_FRAME(f, frame)              \
   if (NILP (frame))                            \
@@ -51,17 +55,6 @@ Boston, MA 02111-1307, USA.  */
     }                                          \
   if (! FRAME_W32_P (f))
 
-/* Emulate XCharStruct.  */
-typedef struct _XCharStruct
-{
-  int rbearing;
-  int lbearing;
-  int width;
-  int ascent;
-  int descent;
-} XCharStruct;
-
-
 /* Indicates whether we are in the readsocket call and the message we
    are processing in the current loop */
 
@@ -264,6 +257,7 @@ extern struct w32_display_info *w32_term_init ();
 \f
 extern Lisp_Object w32_list_fonts P_ ((struct frame *, Lisp_Object, int, int));
 extern struct font_info *w32_get_font_info (), *w32_query_font ();
+extern void w32_cache_char_metrics (XFontStruct *font);
 extern void w32_find_ccl_program();
 \f
 #define PIX_TYPE COLORREF
@@ -357,6 +351,7 @@ struct w32_output
   Cursor modeline_cursor;
   Cursor cross_cursor;
   Cursor busy_cursor;
+  Cursor horizontal_drag_cursor;
 
   /* Window whose cursor is busy_cursor.  This window is temporarily
      mapped to display a busy-cursor.  */