Fix wrong usage of pcase

2024-10-03 17:46:59 +02:00 · 2024-10-03 17:46:59 +02:00 · 62d4f62af4
commit 62d4f62af4
parent bdfcc61dd2
1 changed files with 1 additions and 1 deletions
--- 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)