[elpa] externals/ebdb 281c61e 154/350: Don't ((lambda ())

[Eric Abrahamsen]

branch: externals/ebdb
commit 281c61effbd0dcfcf33eceea6f2ecae3f4674a37
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Don't ((lambda ())
    
    * ebdb-com.el (ebdb-compare-records): Use funcall instead.
    
    Note that none of these functions actually work, currently.
---
 ebdb-com.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ebdb-com.el b/ebdb-com.el
index 4628d84..2cac6f0 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -1426,7 +1426,7 @@ RECORD is returned if (COMPARE VALUE CMPVAL) is t, where 
VALUE
 is the value of xfield LABEL of RECORD."
   `(lambda (record)
      (let ((val (ebdb-record-field record ,label)))
-       (if (and val (,compare val ,cmpval))
+       (if (and val (funcall ,compare val ,cmpval))
            record))))
 
 (defsubst ebdb-string> (a b)
@@ -1439,7 +1439,7 @@ is the value of xfield LABEL of RECORD."
 DATE must be in yyyy-mm-dd format."
   (interactive (list (read-string "Older than date (yyyy-mm-dd): ")
                      (ebdb-formatter-prefix)))
-  (ebdb-search-prog (ebdb-compare-records date 'timestamp 'time-less-p) fmt))
+  (ebdb-search-prog (ebdb-compare-records date 'timestamp #'time-less-p) fmt))
 
 ;;;###autoload
 (defun ebdb-timestamp-newer (date &optional fmt)
@@ -1457,7 +1457,7 @@ DATE must be in yyyy-mm-dd format."
 DATE must be in yyyy-mm-dd format."
   (interactive (list (read-string "Older than date (yyyy-mm-dd): ")
                      (ebdb-formatter-prefix)))
-  (ebdb-search-prog (ebdb-compare-records date 'creation-date string<) fmt))
+  (ebdb-search-prog (ebdb-compare-records date 'creation-date #'string<) fmt))
 
 ;;;###autoload
 (defun ebdb-creation-newer (date &optional fmt)
@@ -1465,7 +1465,7 @@ DATE must be in yyyy-mm-dd format."
 DATE must be in yyyy-mm-dd format."
   (interactive (list (read-string "Newer than date (yyyy-mm-dd): ")
                      (ebdb-formatter-prefix)))
-  (ebdb-search-prog (ebdb-compare-records date 'creation-date ebdb-string>) 
fmt))
+  (ebdb-search-prog (ebdb-compare-records date 'creation-date #'ebdb-string>) 
fmt))
 
 ;;;###autoload
 (defun ebdb-creation-no-change (&optional fmt)