From 69e9c16fda61c3aef9219bf55adadcbba62c0586 Mon Sep 17 00:00:00 2001 From: USAMI Kenta Date: Thu, 19 Dec 2024 14:40:41 +0900 Subject: [PATCH] Fix malformed when-let* again --- lisp/php-project.el | 2 +- lisp/php.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/php-project.el b/lisp/php-project.el index caa16eb3..0b59e2ce 100644 --- a/lisp/php-project.el +++ b/lisp/php-project.el @@ -267,7 +267,7 @@ Typically it is `pear', `drupal', `wordpress', `symfony2' and `psr2'.") This function is compatible with `project-find-functions'." (let ((default-directory dir)) - (when-let* (root (php-project-get-root-dir)) + (when-let* ((root (php-project-get-root-dir))) (if (file-exists-p (expand-file-name ".git" root)) (cons 'vc root) (cons 'transient root))))) diff --git a/lisp/php.el b/lisp/php.el index 437776c6..c08227b1 100644 --- a/lisp/php.el +++ b/lisp/php.el @@ -553,7 +553,7 @@ The order is reversed by calling as follows: (c-backward-token-2 1 nil)) collect (cond - ((when-let* (bounds (php--thing-at-point-bounds-of-string-at-point)) + ((when-let* ((bounds (php--thing-at-point-bounds-of-string-at-point))) (prog1 (buffer-substring-no-properties (car bounds) (cdr bounds)) (goto-char (car bounds))))) ((looking-at php-re-token-symbols)