[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/annotate 7a96192be2 248/372: - according to documentation
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/annotate 7a96192be2 248/372: - according to documentation the secon argument of 'signal' must be a list. |
Date: |
Fri, 4 Feb 2022 16:59:04 -0500 (EST) |
branch: elpa/annotate
commit 7a96192be23b88404b75c11b84d2db94f729f0fb
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- according to documentation the secon argument of 'signal' must be a list.
---
annotate.el | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/annotate.el b/annotate.el
index 720eadeae7..520cb94688 100644
--- a/annotate.el
+++ b/annotate.el
@@ -2256,10 +2256,10 @@ Arguments:
(cond
((not (cl-find look-ahead-symbol
'(and or close-par)))
(signal
'annotate-query-parsing-error
- (format (concat "Expecting
for operator "
- "('and' or
'or') or \")\". "
- "found %S
instead")
-
look-ahead-string)))
+ (list (format (concat
"Expecting for operator "
+
"('and' or 'or') or \")\". "
+
"found %S instead")
+
look-ahead-string))))
(t
;; found operator, recurse to
search for rhs of rule
;; NOTE OPERATOR NOTE
@@ -2286,7 +2286,7 @@ Arguments:
(when (or (annotate-summary-query-parse-end-input-p
maybe-close-parens)
(not (eq (annotate-summary-query-lexer-symbol
maybe-close-parens)
'close-par)))
- (signal 'annotate-query-parsing-error "Unmatched parens"))
+ (signal 'annotate-query-parsing-error '("Unmatched parens")))
;; continue parsing
(annotate-summary-query-parse-note filter-fn annotation
matchp))) ; recurse
((token-symbol-match-p 'not look-ahead)
@@ -2300,7 +2300,7 @@ Arguments:
;; because, according to the grammar, after a NOT a
;; NOTE is non optional
(if (eq :error res)
- (signal 'annotate-query-parsing-error "No more input after
'not'")
+ (signal 'annotate-query-parsing-error '("No more input
after 'not'"))
;; if the last rule (saved in res) is not nil (and
;; is not :error) return nil, return the last
;; annotation otherwise remember that the user asked
@@ -2315,7 +2315,7 @@ Arguments:
(let ((lhs res) ; the left side of this rule lhs AND rhs
(rhs (annotate-summary-query-parse-note filter-fn
annotation :error))) ; recurse
(if (eq :error rhs) ; see the 'not' operator above
- (signal 'annotate-query-parsing-error "No more input after
'and'")
+ (signal 'annotate-query-parsing-error '("No more input
after 'and'"))
(and lhs rhs)))) ; both rules must match as this is a logic
and
;; trying to match the rule:
;; NOTE := NOTE OR NOTE
@@ -2324,7 +2324,7 @@ Arguments:
(let ((lhs res) ; the left side of this rule (lhs OR
rhs)
(rhs (annotate-summary-query-parse-note filter-fn
annotation :error))) ; recurse
(if (eq :error rhs)
- (signal 'annotate-query-parsing-error "No more input after
'or'")
+ (signal 'annotate-query-parsing-error '("No more input
after 'or'"))
(or lhs rhs)))) ; either lhs or rhs match as this is a logic
or
((token-symbol-match-p 'escaped-re look-ahead)
;; here we match the rule:
@@ -2426,7 +2426,7 @@ Note: this function return the annotation part of the
record, see
;; according to the rule we are trying to match:
;; EXPRESSION := FILE-MASK OR NOTE
(if (annotate-summary-query-parse-end-input-p look-ahead)
- (signal 'annotate-query-parsing-error "No more input
after 'or'")
+ (signal 'annotate-query-parsing-error '("No more
input after 'or'"))
(progn
;; copy the string for note parsing note
;; that annotate-summary-query only contains
@@ -2448,7 +2448,7 @@ Note: this function return the annotation part of the
record, see
;; according to the rule we are trying to match:
;; EXPRESSION := FILE-MASK AND NOTE
(if (annotate-summary-query-parse-end-input-p look-ahead)
- (signal 'annotate-query-parsing-error "No more input
after 'and'")
+ (signal 'annotate-query-parsing-error '("No more input
after 'and'"))
(progn
;; copy the string for note parsing note
;; that annotate-summary-query only contains
@@ -2466,8 +2466,8 @@ Note: this function return the annotation part of the
record, see
;; there is something after the file-mask in the
;; input but it is not an operator
(signal 'annotate-query-parsing-error
- (format "Unknown operator: %s is not in '(and, or)"
- (annotate-summary-query-lexer-string
operator-token)))))))))))))
+ (list (format "Unknown operator: %s is not in '(and,
or)"
+ (annotate-summary-query-lexer-string
operator-token))))))))))))))
(defun annotate-summary-filter-db (annotations-dump query)
"Filter an annotation database with a query.
- [nongnu] elpa/annotate a51b5239b9 062/372: fixes incorrect annotation display for wide characters, (continued)
- [nongnu] elpa/annotate a51b5239b9 062/372: fixes incorrect annotation display for wide characters, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 0d315a806e 105/372: - fixed first argument of 'lwarn';, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 1ed168a79e 131/372: Merge pull request #47 from cage2/master, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate c8aea8392d 135/372: - rewritten filename juggling to make it works with info file in, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 286646bc0c 137/372: - made recongnizable code that refers to info file annotation. (2/3), ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 13391d9576 157/372: - expanded a comment and a docstring., ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 0ae5752526 161/372: Merge pull request #54 from cage2/annotations-on-their-own-line, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate c21b95273e 177/372: Merge pull request #57 from cage2/master, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 2ccdad1504 193/372: - starting with a new method to render multiline annotations, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 71f316be2f 236/372: - added dependency on 'info'., ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 7a96192be2 248/372: - according to documentation the secon argument of 'signal' must be a list.,
ELPA Syncer <=
- [nongnu] elpa/annotate f2b085d279 288/372: - fixed typos., ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 26ea8e3631 266/372: - prevented getting shared value for 'annotate-file' in '%load-annotation-data'., ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate b505af0f27 300/372: - updated NEWS, Changelog and version number., ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 17958167da 298/372: Merge pull request #96 from cage2/master, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 784df37cba 313/372: - updated version number., ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 9cdc2a90fb 350/372: - added prompt to confirm deletion also when deleting annotation's text;, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 3e0d5f39b2 302/372: Merge pull request #98 from cage2/master, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate cb8212830d 317/372: - added feature when the customizable variable, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate ff3a0089e0 330/372: Merge pull request #102 from cage2/prevent-prompt-annotating-newline, ELPA Syncer, 2022/02/04
- [nongnu] elpa/annotate 1a09f78be9 322/372: - added comments to local functions of 'annotate-annotate'., ELPA Syncer, 2022/02/04