[elpa] externals/consult c1d128dfe2 2/5: Use pcase-exhaustive

[ELPA Syncer]

branch: externals/consult
commit c1d128dfe2a5919335d3b697f098a5de93fae6ae
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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