[nongnu] elpa/projectile f7eba5e164 6/9: Fix emacs 25 incompat in projectile--complementary-file

[ELPA Syncer]

branch: elpa/projectile
commit f7eba5e16477d46ed36066b381f2f7073f777c1c
Author: lWarne <laurencewarne@gmail.com>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Fix emacs 25 incompat in projectile--complementary-file
---
 projectile.el | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/projectile.el b/projectile.el
index 75e5b8da77..89e1610e4b 100644
--- a/projectile.el
+++ b/projectile.el
@@ -3442,17 +3442,17 @@ test file."
            "No matching source file found for project type `%s'"
            (projectile-project-type))))
     ;; find the matching test file
-    (if-let* ((error-msg (format
-                          "No matching test file found for project type `%s'"
-                          (projectile-project-type)))
-              (test-file (projectile-find-matching-test file-name))
-              (expanded-test-file (projectile-expand-root test-file)))
-        (cond ((file-exists-p expanded-test-file) expanded-test-file)
-              (projectile-create-missing-test-files
-               (projectile--create-directories-for expanded-test-file)
-               expanded-test-file)
-              (t (progn (error error-msg))))
-      (error error-msg))))
+    (let* ((error-msg (format
+                       "No matching test file found for project type `%s'"
+                       (projectile-project-type)))
+           (test-file (or (projectile-find-matching-test file-name)
+                          (error error-msg)))
+           (expanded-test-file (projectile-expand-root test-file)))
+      (cond ((file-exists-p expanded-test-file) expanded-test-file)
+            (projectile-create-missing-test-files
+             (projectile--create-directories-for expanded-test-file)
+             expanded-test-file)
+            (t (progn (error error-msg)))))))
 
 ;;;###autoload
 (defun projectile-find-implementation-or-test-other-window ()
@@ -3554,10 +3554,10 @@ More specifically, return DIR-FN applied to the 
directory of FILE-PATH
 concatenated with FILENAME-FN applied to the file name of FILE-PATH.
 
 If either function returns nil, return nil."
-  (when-let* ((filename (file-name-nondirectory file-path))
-              (complementary-filename (funcall filename-fn filename))
-              (dir (funcall dir-fn (file-name-directory file-path))))
-    (concat (file-name-as-directory dir) complementary-filename)))
+  (let ((filename (file-name-nondirectory file-path)))
+    (when-let ((complementary-filename (funcall filename-fn filename))
+               (dir (funcall dir-fn (file-name-directory file-path))))
+     (concat (file-name-as-directory dir) complementary-filename))))
 
 (defun projectile--impl-file-from-src-dir-str (file-name)
   "Return a path relative to the project root for the impl file of FILE-NAME 
using the src-dir and test-dir properties of the current project type which 
should be strings, nil returned if this is not the case."