[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb 4444031: * ebdb.el (ebdb-add-to-list): Move macro
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ebdb 4444031: * ebdb.el (ebdb-add-to-list): Move macro before first use |
Date: |
Sun, 5 Aug 2018 22:34:18 -0400 (EDT) |
branch: externals/ebdb
commit 44440310e739df9d46aaa38f9ac275199f25f439
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* ebdb.el (ebdb-add-to-list): Move macro before first use
---
ebdb.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index 5811fef..a46061c 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -794,6 +794,11 @@ You really should not disable debugging. But it will
speed things up."
`(let ((debug-on-error t))
,@body)))
+(defmacro ebdb-add-to-list (list-var element)
+ "Add ELEMENT to the value of LIST-VAR if it isn't there yet and non-nil.
+The test for presence of ELEMENT is done with `equal'."
+ `(when ,element (cl-pushnew ,element ,list-var :test #'equal)))
+
;;; Fields.
(defclass ebdb-field ()
@@ -4494,11 +4499,6 @@ REQUIRE-MATCH have the same meaning as in
`completing-read'."
(signal 'ebdb-empty (list prompt))
string)))))
-(defmacro ebdb-add-to-list (list-var element)
- "Add ELEMENT to the value of LIST-VAR if it isn't there yet and non-nil.
-The test for presence of ELEMENT is done with `equal'."
- `(when ,element (cl-pushnew ,element ,list-var :test #'equal)))
-
;; FIXME: Get rid of this add-job and eval-spec stuff.
(defsubst ebdb-add-job (spec record string)
"Internal function: Evaluate SPEC for RECORD and STRING.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/ebdb 4444031: * ebdb.el (ebdb-add-to-list): Move macro before first use,
Stefan Monnier <=