[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb d649c58 2/3: Use mapc in ebdb-initialize
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb d649c58 2/3: Use mapc in ebdb-initialize |
Date: |
Fri, 8 Jan 2021 17:35:15 -0500 (EST) |
branch: externals/ebdb
commit d649c58531709a3324f62a7c83454c6d41222db1
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
Use mapc in ebdb-initialize
* ebdb.el (ebdb-initialize, ebdb-initialize-threadwise): There should
be no return value.
---
ebdb.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index 1d902c9..38b2917 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -5301,7 +5301,7 @@ This results in the creation of all the secondary data
structures: label lists, `ebdb-org-hashtable', record caches,
etc. If optional argument RECORDS is given, only initialize
those records."
- (mapcar #'ebdb-init-record (or records ebdb-record-tracker)))
+ (mapc #'ebdb-init-record (or records ebdb-record-tracker)))
(defun ebdb-initialize-threadwise (&optional records)
"Exactly the same as `ebdb-initialize', but yields thread.
@@ -5313,7 +5313,7 @@ interleave it with other thread-yielding operations to
create an
actual speedup. If optional argument RECORDS is given, only
initialize those records."
(let ((c 0))
- (mapcar
+ (mapc
(lambda (r)
(ebdb-init-record r)
(when (= (mod (cl-incf c) 10) 0)