From: Po Lu <luangruo@yahoo.com>
Date: Tue, 28 Jun 2022 07:31:09 +0000 (+0800)
Subject: Clean up Fx_begin_drag
X-Git-Tag: emacs-29.0.90~1447^2~1412
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=baec3c4974e3a3f31dc4c3cb58db780746bbe691;p=emacs.git

Clean up Fx_begin_drag

* src/xfns.c (Fx_begin_drag): Use FOR_EACH_TAIL instead of
iterating manually.
---

diff --git a/src/xfns.c b/src/xfns.c
index 1372809da68..36920035d7f 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -6910,10 +6910,9 @@ that mouse buttons are being held down, such as immediately after a
   original = targets;
   targets_arg = targets;
 
-  for (; CONSP (targets); targets = XCDR (targets))
+  FOR_EACH_TAIL (targets)
     {
       CHECK_STRING (XCAR (targets));
-      maybe_quit ();
 
       if (ntargets < 2048)
 	{
@@ -6943,9 +6942,8 @@ that mouse buttons are being held down, such as immediately after a
       original = action;
 
       CHECK_LIST (action);
-      for (; CONSP (action); action = XCDR (action))
+      FOR_EACH_TAIL (action)
 	{
-	  maybe_quit ();
 	  tem = XCAR (action);
 	  CHECK_CONS (tem);
 	  t1 = XCAR (tem);