diff src/macterm.h @ 83556:07774e5c3ff5

Merged from [e-mail] Patches applied: * [e-mail]/emacs--devo--0--patch-619 Update from CVS * [e-mail]/emacs--devo--0--patch-620 Update from CVS * [e-mail]/emacs--devo--0--patch-621 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-622 Update from CVS * [e-mail]/emacs--devo--0--patch-623 Remove RCS keywords * [e-mail]/emacs--devo--0--patch-624 Update from CVS * [e-mail]/emacs--devo--0--patch-625 Update from CVS * [e-mail]/emacs--devo--0--patch-626 Update from CVS * [e-mail]/emacs--devo--0--patch-627 Update from CVS * [e-mail]/emacs--devo--0--patch-628 Update from CVS * [e-mail]/emacs--devo--0--patch-629 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-630 Update from CVS * [e-mail]/emacs--devo--0--patch-631 Update from CVS * [e-mail]/emacs--devo--0--patch-632 Update from CVS * [e-mail]/emacs--devo--0--patch-633 Update from CVS * [e-mail]/emacs--devo--0--patch-634 Update from CVS * [e-mail]/emacs--devo--0--patch-635 Update from CVS * [e-mail]/emacs--devo--0--patch-636 Update from CVS * [e-mail]/emacs--devo--0--patch-637 Remove RCS keywords * [e-mail]/emacs--devo--0--patch-638 Update from CVS * [e-mail]/emacs--devo--0--patch-639 Update from CVS * [e-mail]/emacs--devo--0--patch-640 Update from CVS * [e-mail]/emacs--devo--0--patch-641 Update from CVS * [e-mail]/emacs--devo--0--patch-642 Merge from gnus--rel--5.10 * [e-mail]/emacs--devo--0--patch-643 Update from CVS * [e-mail]/emacs--devo--0--patch-644 Update from CVS * [e-mail]/emacs--devo--0--patch-645 Update from CVS * [e-mail]/emacs--devo--0--patch-646 Update from CVS * [e-mail]/emacs--devo--0--patch-647 Update from CVS * [e-mail]/emacs--devo--0--patch-648 Update from CVS * [e-mail]/emacs--devo--0--patch-649 Update from CVS * [e-mail]/gnus--rel--5.10--patch-197 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-198 Update from CVS * [e-mail]/gnus--rel--5.10--patch-199 Update from CVS * [e-mail]/gnus--rel--5.10--patch-200 Merge from emacs--devo--0 * [e-mail]/gnus--rel--5.10--patch-201 Update from CVS: lisp/nnweb.el (nnweb-google-parse-1): Update parser. * [e-mail]/gnus--rel--5.10--patch-202 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-596

--- a/src/macterm.h	Sat Feb 24 19:12:27 2007 +0000
+++ b/src/macterm.h	Sat Feb 24 19:26:54 2007 +0000
@@ -204,7 +204,6 @@
    FONT-LIST-CACHE records previous values returned by x-list-fonts.  */
 extern Lisp_Object x_display_name_list;
 
-extern struct x_display_info *x_display_info_for_display P_ ((Display *));
 extern struct x_display_info *x_display_info_for_name P_ ((Lisp_Object));
 
 extern struct mac_display_info *mac_term_init P_ ((Lisp_Object, char *, char *));
@@ -401,8 +400,8 @@
   /* The next and previous in the chain of scroll bars in this frame.  */
   Lisp_Object next, prev;
 
-  /* The Mac control handle of this scroll bar.  Since this is a full
-     32-bit quantity, we store it split into two 32-bit values.  */
+  /* The Mac control handle of this scroll bar.  Since this is a
+     pointer value, we store it split into two Lisp integers.  */
   Lisp_Object control_handle_low, control_handle_high;
 
   /* The position and size of the scroll bar in pixels, relative to the
@@ -424,7 +423,9 @@
 
   /* If the scroll bar handle is currently being dragged by the user,
      this is the number of pixels from the top of the handle to the
-     place where the user grabbed it.  If the handle isn't currently
+     place where the user grabbed it.  If the handle is pressed but
+     not dragged yet, this is a negative integer whose absolute value
+     is the number of pixels plus 1.  If the handle isn't currently
      being dragged, this is Qnil.  */
   Lisp_Object dragging;
 
@@ -432,6 +433,9 @@
   /* The position and size of the scroll bar handle track area in
      pixels, relative to the frame.  */
   Lisp_Object track_top, track_height;
+
+  /* Minimum length of the scroll bar handle, in pixels.  */
+  Lisp_Object min_handle;
 #endif
 };
 
@@ -445,13 +449,13 @@
 #define XSCROLL_BAR(vec) ((struct scroll_bar *) XVECTOR (vec))
 
 
-/* Building a 32-bit C integer from two 16-bit lisp integers.  */
+/* Building a C long integer from two lisp integers.  */
 #define SCROLL_BAR_PACK(low, high) (XINT (high) << 16 | XINT (low))
 
-/* Setting two lisp integers to the low and high words of a 32-bit C int.  */
-#define SCROLL_BAR_UNPACK(low, high, int32) \
-  (XSETINT ((low),   (int32)        & 0xffff), \
-   XSETINT ((high), ((int32) >> 16) & 0xffff))
+/* Setting two lisp integers to two parts of a C unsigned long.  */
+#define SCROLL_BAR_UNPACK(low, high, ulong) \
+  (XSETINT ((low),  (ulong) & 0xffff), \
+   XSETINT ((high), (ulong) >> 16))
 
 
 /* Extract the Mac control handle of the scroll bar from a struct
@@ -461,9 +465,9 @@
                                     (ptr)->control_handle_high))
 
 /* Store a Mac control handle in a struct scroll_bar.  */
-#define SET_SCROLL_BAR_CONTROL_HANDLE(ptr, id) \
+#define SET_SCROLL_BAR_CONTROL_HANDLE(ptr, handle) \
   (SCROLL_BAR_UNPACK ((ptr)->control_handle_low, \
-                      (ptr)->control_handle_high, (int) id))
+                      (ptr)->control_handle_high, (unsigned long) (handle)))
 
 /* Return the inside width of a vertical scroll bar, given the outside
    width.  */