From: Dave Love <fx@gnu.org>
Date: Mon, 13 Jan 2003 13:33:42 +0000 (+0000)
Subject: (Freverse): Use QUIT.
X-Git-Tag: ttn-vms-21-2-B4~11689
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c3ea973e7563d73303f569f4ee042a140078aab;p=emacs.git

(Freverse): Use QUIT.
---

diff --git a/src/fns.c b/src/fns.c
index 39437b2b522..e531103126d 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1815,7 +1815,10 @@ See also the function `nreverse', which is used more often.  */)
   Lisp_Object new;
 
   for (new = Qnil; CONSP (list); list = XCDR (list))
-    new = Fcons (XCAR (list), new);
+    {
+      QUIT;
+      new = Fcons (XCAR (list), new);
+    }
   if (!NILP (list))
     wrong_type_argument (Qconsp, list);
   return new;