# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1096897946 0
# Node ID faf11ac7a9f57ed3e4b117bbcf3aca203435b142
# Parent  d039bbffafbcad4ba6c999b3db9d970183577571
(define_frame_cursor1): Do not change frame cursor
while tracking/dragging mouse.

diff -r d039bbffafbc -r faf11ac7a9f5 src/xdisp.c
--- a/src/xdisp.c	Mon Oct 04 13:46:19 2004 +0000
+++ b/src/xdisp.c	Mon Oct 04 13:52:26 2004 +0000
@@ -215,6 +215,8 @@
 extern int interrupt_input;
 extern int command_loop_level;
 
+extern Lisp_Object do_mouse_tracking;
+
 extern int minibuffer_auto_raise;
 extern Lisp_Object Vminibuffer_list;
 
@@ -20764,6 +20766,10 @@
      Cursor cursor;
      Lisp_Object pointer;
 {
+  /* Do not change cursor shape while dragging mouse.  */
+  if (!NILP (do_mouse_tracking))
+    return;
+
   if (!NILP (pointer))
     {
       if (EQ (pointer, Qarrow))