[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master b885ef1 03/24: el-search--check-pattern-args: make arg TYP
From: |
Michael Heerdegen |
Subject: |
[elpa] master b885ef1 03/24: el-search--check-pattern-args: make arg TYPE a string |
Date: |
Thu, 19 May 2016 20:46:37 +0000 (UTC) |
branch: master
commit b885ef128521e85f46c83ba51f44f2d8098beeb0
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
el-search--check-pattern-args: make arg TYPE a string
---
packages/el-search/el-search.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 764d77e..84fb1c8 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -546,11 +546,11 @@ return nil (no error)."
(defun el-search--check-pattern-args (type args predicate &optional message)
"Check whether all ARGS fulfill PREDICATE.
-Raise an error if not. TYPE and optional argument MESSAGE are
-used to construct the error message."
+Raise an error if not. The string arguments TYPE and optional
+MESSAGE are used to construct the error message."
(mapc (lambda (arg)
(unless (funcall predicate arg)
- (error (concat "Pattern `%S': "
+ (error (concat "Pattern `%s': "
(or message (format "argument doesn't fulfill %S"
predicate))
": %S")
type arg)))
@@ -617,7 +617,7 @@ matches the list (1 2 3 4 5 6 7 8 9) and binds `x' to (4 5
6)."
(el-search-defpattern string (&rest regexps)
"Matches any string that is matched by all REGEXPS."
- (el-search--check-pattern-args 'string regexps #'el-search--stringish-p
+ (el-search--check-pattern-args "string" regexps #'el-search--stringish-p
"Argument not a string")
`(and (pred stringp)
,@(mapcar (lambda (thing) `(pred (el-search--smart-string-match-p
@@ -626,7 +626,7 @@ matches the list (1 2 3 4 5 6 7 8 9) and binds `x' to (4 5
6)."
(el-search-defpattern symbol (&rest regexps)
"Matches any symbol whose name is matched by all REGEXPS."
- (el-search--check-pattern-args 'symbol regexps #'el-search--stringish-p
+ (el-search--check-pattern-args "symbol" regexps #'el-search--stringish-p
"Argument not a string")
`(and (pred symbolp)
(app symbol-name (string ,@regexps))))
@@ -684,7 +684,7 @@ REGEXP can also be a symbol, in which case
(concat \"^\" (symbol-name regexp) \"$\")
is used as regular expression."
- (el-search--check-pattern-args 'source (list regexp) #'el-search--stringish-p
+ (el-search--check-pattern-args "source" (list regexp)
#'el-search--stringish-p
"Argument not a string")
`(pred (el-search--match-symbol-file ,(if (symbolp regexp) (symbol-name
regexp) regexp))))
@@ -716,7 +716,7 @@ matches any of these expressions:
[(control ?s)]"
(when (eq (car-safe key-sequence) 'kbd)
(setq key-sequence (kbd (cadr key-sequence))))
- (el-search--check-pattern-args 'keys (list key-sequence) (lambda (x) (or
(stringp x) (vectorp x)))
+ (el-search--check-pattern-args "keys" (list key-sequence) (lambda (x) (or
(stringp x) (vectorp x)))
"argument not a string or vector")
`(pred (el-search--match-key-sequence ,key-sequence)))
- [elpa] master 91192f5 10/24: Add patterns for character properties, (continued)
- [elpa] master 91192f5 10/24: Add patterns for character properties, Michael Heerdegen, 2016/05/19
- [elpa] master 246e1ff 17/24: Small fix in el-search--setup-minibuffer, Michael Heerdegen, 2016/05/19
- [elpa] master 098582b 20/24: Reduce duration of a `sit-for', Michael Heerdegen, 2016/05/19
- [elpa] master 01e5bcd 22/24: Clean up el-search-read-expression-map; add some doc, Michael Heerdegen, 2016/05/19
- [elpa] master 0b9fe9c 23/24: Set initial input for replace when coming from el-search-pattern, Michael Heerdegen, 2016/05/19
- [elpa] master c0d9ca7 14/24: Make el-search-pattern accept an optional NO-ERROR arg, Michael Heerdegen, 2016/05/19
- [elpa] master 41fc28b 01/24: New user option: el-search-use-sloppy-strings, Michael Heerdegen, 2016/05/19
- [elpa] master 149acb9 07/24: Improve documentation and argument names of el-search-query-replace, Michael Heerdegen, 2016/05/19
- [elpa] master 3d0a12e 13/24: Fix el-search--ensure-sexp-start error at bob, Michael Heerdegen, 2016/05/19
- [elpa] master 03dd4e7 06/24: Comment and whitespace changes only, Michael Heerdegen, 2016/05/19
- [elpa] master b885ef1 03/24: el-search--check-pattern-args: make arg TYPE a string,
Michael Heerdegen <=
- [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