Fix malformed when-let*

emacs-php · Dec 19, 2024 · 9f0695e · 9f0695e
1 parent c716ba9
commit 9f0695e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git 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
@@ -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)))