branch: externals/consult
commit c1d128dfe2a5919335d3b697f098a5de93fae6ae
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Use pcase-exhaustive
---
consult.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index 2512fb620c..221fb26ded 100644
--- a/consult.el
+++ b/consult.el
@@ -850,7 +850,7 @@ Otherwise the `default-directory' is returned."
(defun consult--default-project-function (what)
"Return project directories depending on WHAT.
See `consult-project-function' for WHAT."
- (pcase what
+ (pcase-exhaustive what
('current-project
(when-let (proj (project-current))
(cond
