[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/buttercup bff022e664 1/3: Use the name instead of the symb
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/buttercup bff022e664 1/3: Use the name instead of the symbol in *-define-matcher-for-*-function |
Date: |
Sun, 16 Oct 2022 18:58:22 -0400 (EDT) |
branch: elpa/buttercup
commit bff022e6645af803f80e549ee031adf62ca4cea5
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Ola Nilsson <ola.nilsson@gmail.com>
Use the name instead of the symbol in *-define-matcher-for-*-function
Changes in GNU Emacs commit 5281946fbf6b3cdbec5ce82e0057c71849faf4d2
makes format-spec call any symbol functions instead of inserting them
as strings.
Fixes #225.
---
buttercup.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/buttercup.el b/buttercup.el
index 7908870a9e..5423096ee8 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -345,7 +345,7 @@ See also `buttercup-define-matcher'."
(concat expect-match-phrase " "
expect-mismatch-phrase))))
(if (symbolp function)
- (setq function-name function)
+ (setq function-name (symbol-name function))
(error "The `:function-name' keyword is required if FUNCTION is not a
symbol")))
`(buttercup-define-matcher ,matcher (arg)
(let* ((expr (buttercup--enclosed-expr arg))
@@ -421,7 +421,7 @@ See also `buttercup-define-matcher'."
(concat expect-match-phrase " "
expect-mismatch-phrase))))
(if (symbolp function)
- (setq function-name function)
+ (setq function-name (symbol-name function))
(error "The `:function-name' keyword is required if FUNCTION is not a
symbol")))
`(buttercup-define-matcher ,matcher (a b)
(cl-destructuring-bind