[nongnu] elpa/php-mode 9f0695e705 5/6: Fix malformed when-let*

[ELPA Syncer]

branch: elpa/php-mode
commit 9f0695e705ce900dadd858d81d3faa20ed4c9bf4
Author: USAMI Kenta <tadsan@zonu.me>
Commit: USAMI Kenta <tadsan@zonu.me>

    Fix malformed when-let*
---
 lisp/php-format.el | 2 +-
 lisp/php-ide.el    | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/php-format.el b/lisp/php-format.el
index a26477f6d6..578ee52b52 100644
--- a/lisp/php-format.el
+++ b/lisp/php-format.el
@@ -176,7 +176,7 @@
                                files)
                            return sym))
         (setq-local php-format-command cmd))
-      (when-let* (tup (plist-get (cdr-safe (assq cmd 
php-format-formatter-alist)) :command))
+      (when-let* ((tup (plist-get (cdr-safe (assq cmd 
php-format-formatter-alist)) :command)))
         (setq executable (car tup))
         (setq args (cdr tup))
         (setq vendor (expand-file-name executable (expand-file-name 
php-format-command-dir default-directory)))
diff --git a/lisp/php-ide.el b/lisp/php-ide.el
index 5d1201fbc0..4e1ec8b422 100644
--- a/lisp/php-ide.el
+++ b/lisp/php-ide.el
@@ -166,7 +166,7 @@
   (cond
    ((stringp php-ide-eglot-executable) (list php-ide-eglot-executable))
    ((listp php-ide-eglot-executable) php-ide-eglot-executable)
-   ((when-let* (command (assq php-ide-eglot-executable 
php-ide-lsp-command-alist))
+   ((when-let* ((command (assq php-ide-eglot-executable 
php-ide-lsp-command-alist)))
       (cond
        ((functionp command) (funcall command))
        ((listp command) command))))))
@@ -196,9 +196,9 @@ ACTIVATE: T is given when activeting, NIL when deactivating 
PHP-IDE."
   "Minor mode for integrate IDE-like tools."
   :lighter php-ide-mode-lighter
   (let ((ide-features php-ide-features))
-    (when-let* (unavailable-features (cl-loop for feature in ide-features
-                                              unless (assq feature 
php-ide-feature-alist)
-                                              collect feature))
+    (when-let* ((unavailable-features (cl-loop for feature in ide-features
+                                               unless (assq feature 
php-ide-feature-alist)
+                                               collect feature)))
       (user-error "%s includes unavailable PHP-IDE features.  (available 
features are: %s)"
                   ide-features
                   (mapconcat (lambda (feature) (concat "'" (symbol-name 
feature)))