branch: externals/ebdb
commit 10b0fa433f530b88d62bd5e22ae4ef58950e5d1a
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Use save-excursion in ebdb-toggle-all-record-marks
* ebdb-com.el (ebdb-toggle-all-record-marks): Leave point where it is.
---
ebdb-com.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/ebdb-com.el b/ebdb-com.el
index 47870fd..18088af 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -1276,10 +1276,11 @@ With prefix N move backwards N (sub)fields."
(defun ebdb-toggle-all-record-marks ()
"Reverse the marked status of all records."
(interactive)
- (mapcar
- (lambda (rec)
- (ebdb-toggle-record-mark rec 'mark))
- ebdb-records))
+ (save-excursion
+ (mapcar
+ (lambda (rec)
+ (ebdb-toggle-record-mark rec 'mark))
+ ebdb-records)))
(defun ebdb-unmark-all-records ()
"Remove the mark from all records."
