branch: externals/ebdb
commit b3266e50be819fd5bd59e36f69042fc30b303840
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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)
