From 62d4f62af4a7e7455fe43450360a9ec60da3b65f Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Thu, 3 Oct 2024 17:46:59 +0200 Subject: [PATCH] Fix wrong usage of `pcase` --- site-lisp/db-org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 50553b8..67eb576 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -771,7 +771,7 @@ PARAMS is a property list of the following parameters: ((and (pred stringp) arg) #'(lambda (x) (string-match arg x))) ((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) "8:00")) date-range)