From: Kim F. Storm <storm@cua.dk>
Date: Mon, 4 Oct 2004 13:57:13 +0000 (+0000)
Subject: (define_frame_cursor1): Do not change frame cursor
X-Git-Tag: ttn-vms-21-2-B4~4736
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=562020fe6f943c77000fdaa2b3def3ea633fc1b1;p=emacs.git

(define_frame_cursor1): Do not change frame cursor
while tracking/dragging mouse.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index c5ac065b132..d6a7624de20 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2004-10-04  Kim F. Storm  <storm@cua.dk>
 
+	* xdisp.c (define_frame_cursor1): Do not change frame cursor
+	while tracking/dragging mouse.
+	(x_draw_vertical_border): Do not draw line if frame has scroll bars.
+
 	* window.c (coordinates_in_window): Relax check for cursor
 	on vertial border between mode lines.
 	(Fset_window_fringes): Do not allow negative widths.
diff --git a/src/xdisp.c b/src/xdisp.c
index ddd247b3430..82fa97c5190 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -215,6 +215,8 @@ extern int pending_menu_activation;
 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 @@ define_frame_cursor1 (f, cursor, pointer)
      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))