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