From f7bf81b950f44f6550892065e5560b5e0fcd34a3 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 16 Oct 2003 12:43:54 +0000 Subject: [PATCH] * wl-util.el (wl-get-assoc-list-value): Fixed last change. --- wl/ChangeLog | 4 ++++ wl/wl-util.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 7394e66..de38684 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2003-10-16 Yuuichi Teranishi + + * wl-util.el (wl-get-assoc-list-value): Fixed last change. + 2003-10-16 Hiroya Murata * wl-summary.el (wl-thread-saved-entity-hashtb-internal): New diff --git a/wl/wl-util.el b/wl/wl-util.el index 19885ae..ba79ad0 100644 --- a/wl/wl-util.el +++ b/wl/wl-util.el @@ -274,7 +274,7 @@ even when invalid character is contained." (setq value (append value (list (cdr pair))))) ((eq match 'all-list) (setq value (append value (cdr pair)))) - ((not match) + ((or (not match) (eq match 'function)) (throw 'found (cdr pair)))))) (setq alist (cdr alist))) value))) -- 1.7.10.4