[elpa] externals/ebdb b3266e5 17/21: Apparently when-let will be obsoleted by when-let*

[Eric Abrahamsen]

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

    Apparently when-let will be obsoleted by when-let*
    
    * ebdb-snarf.el (ebdb-snarf-query): Okay, then.
---
 ebdb-snarf.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/ebdb-snarf.el b/ebdb-snarf.el
index 5abb570..bf49d3b 100644
--- a/ebdb-snarf.el
+++ b/ebdb-snarf.el
@@ -368,19 +368,19 @@ automatically."
        (push record records)))
     ;; Handle fields in LEFTOVERS.
     (dolist (f (delete-dups leftovers))
-      (when-let ((record
-                 (cond ((yes-or-no-p
-                         (format "Add %s to existing record? "
-                                 (ebdb-string f)))
-                        (ebdb-prompt-for-record))
-                       ((yes-or-no-p
-                         (format "Add %s to new record? "
-                                 (ebdb-string f)))
-                        (ebdb-init-record
-                         (ebdb-db-add-record
-                          (car ebdb-db-list)
-                          (ebdb-read ebdb-default-record-class))))
-                       (t nil))))
+      (when-let* ((record
+                  (cond ((yes-or-no-p
+                          (format "Add %s to existing record? "
+                                  (ebdb-string f)))
+                         (ebdb-prompt-for-record))
+                        ((yes-or-no-p
+                          (format "Add %s to new record? "
+                                  (ebdb-string f)))
+                         (ebdb-init-record
+                          (ebdb-db-add-record
+                           (car ebdb-db-list)
+                           (ebdb-read ebdb-default-record-class))))
+                        (t nil))))
        (condition-case nil
            (progn
              (ebdb-record-insert-field record f)