From 5c3ea973e7563d73303f569f4ee042a140078aab Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 13 Jan 2003 13:33:42 +0000 Subject: [PATCH] (Freverse): Use QUIT. --- src/fns.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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; -- 2.39.2