(Fset_window_margins): Allow only integers as args.

[gnu-emacs] / src / macterm.c

diff --git a/src/macterm.c b/src/macterm.c
index fc9b890db18a225b526f9068f3c65df703c3af0f..6fe2bc1603c4f7642afb8cf131526f16f1f9bae4 100644 (file)
--- a/src/macterm.c
+++ b/src/macterm.c
@@ -7875,12 +7875,13 @@ XTread_socket (int sd, struct input_event *bufp, int numchars, int expected)
 
            case inDrag:
 #if TARGET_API_MAC_CARBON
-             {
-               BitMap bm;
-
-               GetQDGlobalsScreenBits (&bm);
-               DragWindow (window_ptr, er.where, &bm.bounds);
-             }
+              if (er.what == mouseDown)  
+               {
+                 BitMap bm;
+                 
+                 GetQDGlobalsScreenBits (&bm);
+                 DragWindow (window_ptr, er.where, &bm.bounds);
+               }
 #else /* not TARGET_API_MAC_CARBON */
              DragWindow (window_ptr, er.where, &qd.screenBits.bounds);
 #endif /* not TARGET_API_MAC_CARBON */