[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master bace971 02/24: Rewrite `string' pattern definition
From: |
Michael Heerdegen |
Subject: |
[elpa] master bace971 02/24: Rewrite `string' pattern definition |
Date: |
Thu, 19 May 2016 20:46:37 +0000 (UTC) |
branch: master
commit bace971d3cff75963ee52d0157c091caaba857ac
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
Rewrite `string' pattern definition
---
packages/el-search/el-search.el | 11 ++++-------
1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index f5db2eb..764d77e 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -619,13 +619,10 @@ matches the list (1 2 3 4 5 6 7 8 9) and binds `x' to (4
5 6)."
"Matches any string that is matched by all REGEXPS."
(el-search--check-pattern-args 'string regexps #'el-search--stringish-p
"Argument not a string")
- (let ((string (make-symbol "string"))
- (regexp (make-symbol "regexp")))
- `(and (pred stringp)
- (pred (lambda (,string)
- (cl-every
- (lambda (,regexp) (el-search--smart-string-match-p ,regexp
,string))
- ',regexps))))))
+ `(and (pred stringp)
+ ,@(mapcar (lambda (thing) `(pred (el-search--smart-string-match-p
+ ,(if (symbolp thing) (symbol-name thing)
thing))))
+ regexps)))
(el-search-defpattern symbol (&rest regexps)
"Matches any symbol whose name is matched by all REGEXPS."
- [elpa] master 3d72d1d 11/24: Address compiler warnings, (continued)
- [elpa] master 3d72d1d 11/24: Address compiler warnings, Michael Heerdegen, 2016/05/19
- [elpa] master 536fab6 15/24: Give el-search--s a more meaningful name, Michael Heerdegen, 2016/05/19
- [elpa] master 4b11cb8 09/24: Rename two functions, Michael Heerdegen, 2016/05/19
- [elpa] master 8d7b29c 21/24: Make sure not to lose the minibuffer-prompt face, Michael Heerdegen, 2016/05/19
- [elpa] master c356b2d 19/24: Rename a local variable, Michael Heerdegen, 2016/05/19
- [elpa] master bb98a1d 04/24: Rewrite replacement layout restoration, Michael Heerdegen, 2016/05/19
- [elpa] master 5f9accc 18/24: Make query-replace accept FROM -> TO style input, Michael Heerdegen, 2016/05/19
- [elpa] master 99e8724 08/24: Handle replacements containing another match, Michael Heerdegen, 2016/05/19
- [elpa] master b09bb1b 16/24: Use `pp-to-string' to print replacement expression, Michael Heerdegen, 2016/05/19
- [elpa] master c835174 24/24: Improve history handling, Michael Heerdegen, 2016/05/19
- [elpa] master bace971 02/24: Rewrite `string' pattern definition,
Michael Heerdegen <=