branch: externals/compat
commit 3bd63047706cf7c65eb31daa1f005de8cc0ddbe5
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
compat-macs: Formatting
---
compat-macs.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/compat-macs.el b/compat-macs.el
index 4ba7cc1d57..0e81eab110 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -92,9 +92,9 @@ a plist of predicates for arguments which are passed to FUN."
(defun compat-macs--defun (type name arglist docstring rest)
"Define function NAME of TYPE with ARGLIST and DOCSTRING.
REST are attributes and the function BODY."
- (compat-macs--guard rest `(:extended ,(lambda (x) (or (booleanp x)
(version-to-list x)))
- :obsolete ,(lambda (x) (or (booleanp x) (stringp x)))
- :body t)
+ (compat-macs--guard rest (list :extended (lambda (x) (or (booleanp x)
(version-to-list x)))
+ :obsolete (lambda (x) (or (booleanp x)
(stringp x)))
+ :body t)
(lambda (extended obsolete body)
(when (stringp extended)
(compat-macs--assert
@@ -225,9 +225,9 @@ definition is generated.
- :feature :: See `compat-guard'."
(declare (debug (name form stringp [&rest keywordp sexp]))
(doc-string 3) (indent 2))
- (compat-macs--guard attrs `(:constant booleanp
- :local ,(lambda (x) (memq x '(nil t permanent)))
- :obsolete ,(lambda (x) (or (booleanp x) (stringp x))))
+ (compat-macs--guard attrs (list :constant #'booleanp
+ :local (lambda (x) (memq x '(nil t
permanent)))
+ :obsolete (lambda (x) (or (booleanp x)
(stringp x))))
(lambda (constant local obsolete)
(compat-macs--strict (not (boundp name)) "%s already defined" name)
(compat-macs--assert (not (and constant local)) "Both :constant and
:local")
