From ec2423c930a4afe318ddb9bce06db88e4ba83990 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 11 Apr 2001 12:58:21 +0000 Subject: [PATCH] (Fplist_get): Don't QUIT is interrupt_input_blocked. --- src/ChangeLog | 4 ++++ src/fns.c | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index bf6c5522d25..b471a4cb4b8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2001-04-11 Gerd Moellmann + + * fns.c (Fplist_get): Don't QUIT if interrupt_input_blocked. + 2001-04-10 Gerd Moellmann * fns.c (Fcompare_strings): Fix return values. diff --git a/src/fns.c b/src/fns.c index ceda1cfbf41..c0b8190433e 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1872,7 +1872,11 @@ one of the properties on the list.") { if (EQ (prop, XCAR (tail))) return XCAR (XCDR (tail)); - QUIT; + + /* This function can be called asynchronously + (setup_coding_system). Don't QUIT in that case. */ + if (!interrupt_input_blocked) + QUIT; } if (!NILP (tail)) @@ -1915,6 +1919,7 @@ The PLIST is modified by side effects.") Fsetcar (XCDR (tail), val); return plist; } + prev = tail; QUIT; } -- 2.39.5