From af98fc7f9aeb39902dfbe48cdf77b6f2dd8f2227 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 10 Nov 2009 21:22:57 +0000 Subject: [PATCH] (Fplist_get): Merge the active and the uncommented code. --- src/ChangeLog | 7 ++++++- src/fns.c | 39 +++++++-------------------------------- 2 files changed, 13 insertions(+), 33 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 3b85404ba20..c9634e7f4c6 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-11-10 Stefan Monnier + + * fns.c (Fplist_get): Merge the active and the uncommented code. + 2009-11-10 Jan Djärv * keyboard.h: Declare timer_check. @@ -12,7 +16,8 @@ * xmenu.c (x_menu_wait_for_event): Remove code that did a timeout even if timer_check returned -1. - * gtkutil.c (xg_dialog_response_cb): data is now a struct xg_dialog_data + * gtkutil.c (xg_dialog_response_cb): Data is now a struct + xg_dialog_data. (pop_down_dialog): Destroy widget (if any), cancel timer and unref the event loop. (xg_maybe_add_timer, xg_dialog_run): New functions (bug #4574). diff --git a/src/fns.c b/src/fns.c index e160e288467..78b2f27e798 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1927,38 +1927,6 @@ merge (org_l1, org_l2, pred) } -#if 0 /* Unsafe version. */ -DEFUN ("plist-get", Fplist_get, Splist_get, 2, 2, 0, - doc: /* Extract a value from a property list. -PLIST is a property list, which is a list of the form -\(PROP1 VALUE1 PROP2 VALUE2...). This function returns the value -corresponding to the given PROP, or nil if PROP is not -one of the properties on the list. */) - (plist, prop) - Lisp_Object plist; - Lisp_Object prop; -{ - Lisp_Object tail; - - for (tail = plist; - CONSP (tail) && CONSP (XCDR (tail)); - tail = XCDR (XCDR (tail))) - { - if (EQ (prop, XCAR (tail))) - return XCAR (XCDR (tail)); - - /* This function can be called asynchronously - (setup_coding_system). Don't QUIT in that case. */ - if (!interrupt_input_blocked) - QUIT; - } - - CHECK_LIST_END (tail, prop); - - return Qnil; -} -#endif - /* This does not check for quits. That is safe since it must terminate. */ DEFUN ("plist-get", Fplist_get, Splist_get, 2, 2, 0, @@ -1984,6 +1952,13 @@ properties on the list. This function never signals an error. */) halftail = XCDR (halftail); if (EQ (tail, halftail)) break; + +#if 0 /* Unsafe version. */ + /* This function can be called asynchronously + (setup_coding_system). Don't QUIT in that case. */ + if (!interrupt_input_blocked) + QUIT; +#endif } return Qnil; -- 2.39.2