From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 28 Mar 2003 14:45:30 +0000 (+0000)
Subject: (xt_action_hook): Unset dragging so the reset does take place.
X-Git-Tag: ttn-vms-21-2-B4~10736
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95a39dc55e6ca986eee3d517432957598f557de1;p=emacs.git

(xt_action_hook): Unset dragging so the reset does take place.
---

diff --git a/src/xterm.c b/src/xterm.c
index 1be9b4412f9..480239c2a1a 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -3988,10 +3988,11 @@ xt_action_hook (widget, client_data, action_name, event, params,
       w = XWINDOW (window_being_scrolled);
       
       if (!NILP (XSCROLL_BAR (w->vertical_scroll_bar)->dragging))
-	/* The thumb size is incorrect while dragging: fix it.  */
-	set_vertical_scroll_bar (w);
-
-      XSCROLL_BAR (w->vertical_scroll_bar)->dragging = Qnil;
+	{
+	  XSCROLL_BAR (w->vertical_scroll_bar)->dragging = Qnil;
+	  /* The thumb size is incorrect while dragging: fix it.  */
+	  set_vertical_scroll_bar (w);
+	}
       window_being_scrolled = Qnil;
       last_scroll_bar_part = -1;