Fix wrong usage of pcase
This commit is contained in:
parent
bdfcc61dd2
commit
62d4f62af4
@ -771,7 +771,7 @@ PARAMS is a property list of the following parameters:
|
|||||||
((and (pred stringp) arg)
|
((and (pred stringp) arg)
|
||||||
#'(lambda (x) (string-match arg x)))
|
#'(lambda (x) (string-match arg x)))
|
||||||
((and (pred functionp) fun) fun)
|
((and (pred functionp) fun) fun)
|
||||||
(_ (user-error "Invalid argument to :skip-matches: %s" arg))))
|
(arg (user-error "Invalid argument to :skip-matches: %s" arg))))
|
||||||
(work-hours (or (plist-get params :work-hours)
|
(work-hours (or (plist-get params :work-hours)
|
||||||
"8:00"))
|
"8:00"))
|
||||||
date-range)
|
date-range)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user