[elpa] externals/ebdb 20f1ea2 025/350: Add command to unmark all records

[Eric Abrahamsen]

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

    Add command to unmark all records
    
    * ebdb-com.el (ebdb-unmark-all-records): New command. Calling
      redisplay for each individual record is highly inefficient when
      unmarking lots of records.
---
 ebdb-com.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/ebdb-com.el b/ebdb-com.el
index e2b861e..d23e94b 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -1282,6 +1282,15 @@ With prefix N move backwards N (sub)fields."
      (ebdb-toggle-record-mark rec 'mark))
    ebdb-records))
 
+(defun ebdb-unmark-all-records ()
+  "Remove the mark from all records."
+  (interactive)
+  (mapcar
+   (lambda (rec)
+     (setf (nth 3 rec) nil)
+     (ebdb-redisplay-record (car rec)))
+   ebdb-records))
+
 
 ;; clean-up functions