[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/compat 425156ccb4 2/6: compat-macs: Rename :cond to :wh
From: |
ELPA Syncer |
Subject: |
[elpa] externals/compat 425156ccb4 2/6: compat-macs: Rename :cond to :when |
Date: |
Mon, 16 Jan 2023 06:57:26 -0500 (EST) |
branch: externals/compat
commit 425156ccb474471a5067500318ac521dc18efe58
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
compat-macs: Rename :cond to :when
---
compat-macs.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/compat-macs.el b/compat-macs.el
index e579eeaacf..1c71db92c2 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -66,10 +66,10 @@ If this is not documented on yourself system, you can check
\
The version constraints specified by ATTRS are checked.
ARGS is a list of keywords which are looked up and passed to FUN."
(declare (indent 2))
- (let* ((body (compat--check-attributes attrs `(,@args :cond :feature)))
+ (let* ((body (compat--check-attributes attrs `(,@args :when :feature)))
(feature (plist-get attrs :feature))
(attrs `(:body ,body ,@attrs))
- (cond (plist-get attrs :cond)))
+ (cond (plist-get attrs :when)))
;; Require feature at compile time
(when feature
(when (eq feature 'subr-x)
@@ -130,8 +130,8 @@ under which the definition is generated.
- :feature :: Wrap the definition with `with-eval-after-load'.
-- :cond :: Do not install the definition depending on the
- version. Instead install the definition if :cond evaluates to
+- :when :: Do not install the definition depending on the
+ version. Instead install the definition if :when evaluates to
non-nil."
(declare (debug (name symbolp [&rest keywordp sexp])))
(compat--guarded-definition attrs '(:obsolete)
@@ -160,8 +160,8 @@ defined.
- :feature :: Wrap the definition with `with-eval-after-load'.
-- :cond :: Do not install the definition depending on the
- version. Instead install the definition if :cond evaluates to
+- :when :: Do not install the definition depending on the
+ version. Instead install the definition if :when evaluates to
non-nil."
(declare (debug (&define name (&rest symbolp)
stringp
@@ -192,8 +192,8 @@ definition is generated.
- :feature :: Wrap the definition with `with-eval-after-load'.
-- :cond :: Do not install the definition depending on the
- version. Instead install the definition if :cond evaluates to
+- :when :: Do not install the definition depending on the
+ version. Instead install the definition if :when evaluates to
non-nil."
(declare (debug (name form stringp [&rest keywordp sexp]))
(doc-string 3) (indent 2))
- [elpa] externals/compat updated (0967dbf2de -> 9600545c54), ELPA Syncer, 2023/01/16
- [elpa] externals/compat 425156ccb4 2/6: compat-macs: Rename :cond to :when,
ELPA Syncer <=
- [elpa] externals/compat 9097878541 4/6: null-device: Use file-remote-p, ELPA Syncer, 2023/01/16
- [elpa] externals/compat 9b787ec578 3/6: Add test for directory-files, ELPA Syncer, 2023/01/16
- [elpa] externals/compat 0a56ae09cd 1/6: compat-macs: Expand docstring, ELPA Syncer, 2023/01/16
- [elpa] externals/compat 9600545c54 6/6: Add test for temporary-file-directory, ELPA Syncer, 2023/01/16
- [elpa] externals/compat 99878885e3 5/6: compat-28: Drop null-device, ELPA Syncer, 2023/01/16