jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use alternative way to suppress warnings

Browse source
This commit is contained in:
Ihor Radchenko 2021-04-06 22:43:34 +08:00
parent dc6f2d2501
commit e3f45f36e0
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
org-ql.el
View file

@ -1117,7 +1117,7 @@ It would be expanded to:
(preambles (cl-sublis (list (cons 'predicate-names (cons 'or (--map (list 'quote it) predicate-names)))) (preambles (cl-sublis (list (cons 'predicate-names (cons 'or (--map (list 'quote it) predicate-names))))
preambles))) preambles)))
`(progn `(progn
(cl-defun ,fn-name ,(if body args '(&rest _)) ,docstring ,body) (cl-defun ,fn-name ,args ,docstring ,body)
;; SOMEDAY: Use `map-elt' here, after map 2.1 can be automatically installed in CI sandbox... ;; SOMEDAY: Use `map-elt' here, after map 2.1 can be automatically installed in CI sandbox...
(setf (alist-get ',predicate-name org-ql-predicates) (setf (alist-get ',predicate-name org-ql-predicates)
`(:name ,',name :aliases ,',aliases :fn ,',fn-name :docstring ,(\, docstring) :args ,',args `(:name ,',name :aliases ,',aliases :fn ,',fn-name :docstring ,(\, docstring) :args ,',args
@ -1212,7 +1212,7 @@ result form."
;; redefinitions until all of the predicates have been defined. ;; redefinitions until all of the predicates have been defined.
(setf org-ql-defpred-defer t) (setf org-ql-defpred-defer t)
(org-ql-defpred org-ql--and (&rest clauses) (org-ql-defpred org-ql--and (&rest _)
"Return non-nil if all the clauses match." "Return non-nil if all the clauses match."
:normalizers ((`(and) :normalizers ((`(and)
nil) nil)
@ -1241,7 +1241,7 @@ result form."
:case-fold case-fold-max :case-fold case-fold-max
:query `(and ,@queries)))))) :query `(and ,@queries))))))
(org-ql-defpred org-ql--or (&rest clauses) (org-ql-defpred org-ql--or (&rest _)
"Return non-nil if any of the clauses match." "Return non-nil if any of the clauses match."
:normalizers ((`(or) :normalizers ((`(or)
nil) nil)
@ -1270,7 +1270,7 @@ result form."
:case-fold t :case-fold t
:query `(or ,@(mapcar (lambda (clause) `(save-excursion ,clause)) queries))))))) :query `(or ,@(mapcar (lambda (clause) `(save-excursion ,clause)) queries)))))))
(org-ql-defpred org-ql--when (condition &rest clauses) (org-ql-defpred org-ql--when (_ &rest _)
"Return values of CLAUSES when CONDITION is non-nil." "Return values of CLAUSES when CONDITION is non-nil."
:normalizers :normalizers
((`(when ,condition . ,clauses) ((`(when ,condition . ,clauses)
@ -1283,7 +1283,7 @@ result form."
:case-fold case-fold :case-fold case-fold
:query `(when ,condition ,@(mapcar (lambda (clause) `(save-excursion ,clause)) (butlast clauses)) ,(last clauses))))))) :query `(when ,condition ,@(mapcar (lambda (clause) `(save-excursion ,clause)) (butlast clauses)) ,(last clauses)))))))
(org-ql-defpred org-ql--unless (condition &rest clauses) (org-ql-defpred org-ql--unless (_ &rest _)
"Return values of CLAUSES unless CONDITION is non-nil." "Return values of CLAUSES unless CONDITION is non-nil."
:normalizers :normalizers
((`(unless ,condition . ,clauses) ((`(unless ,condition . ,clauses)
@ -1296,7 +1296,7 @@ result form."
:case-fold case-fold :case-fold case-fold
:query `(unless (save-excursion ,condition) ,@(mapcar (lambda (clause) `(save-excursion ,clause)) (butlast clauses)) ,(last clauses))))))) :query `(unless (save-excursion ,condition) ,@(mapcar (lambda (clause) `(save-excursion ,clause)) (butlast clauses)) ,(last clauses)))))))
(org-ql-defpred org-ql--not (clauses) (org-ql-defpred org-ql--not (_)
"Match when CLAUSES don't match." "Match when CLAUSES don't match."
:normalizers :normalizers
((`(not . ,clauses) ((`(not . ,clauses)