magit-read-module-path: Fix previous change

Only augment the predicate if there actually is one.

Fix problem introduced in d527f833.

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 729371d..7a36c08 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -2994,10 +2994,11 @@ out.  Only existing branches can be selected."
   ;; the value of `default-directory' in that buffer is the same as in
   ;; the buffer from which completion was invoked.
   (magit-completing-read prompt (magit-list-module-paths)
-                         (let ((dir default-directory))
-                           (lambda (module)
-                             (let ((default-directory dir))
-                               (funcall predicate module))))
+                         (and predicate
+                              (let ((dir default-directory))
+                                (lambda (module)
+                                  (let ((default-directory dir))
+                                    (funcall predicate module)))))
                          t nil nil
                          (magit-module-at-point predicate)))