refactor: s/when-let/when-let*/

The former is deprecated on Emacs 31 for the latter.
This commit is contained in:
Henrik Lissner 2026-03-09 03:25:16 -04:00
parent 0b1de48daa
commit 4fe1cbeddb
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
70 changed files with 210 additions and 210 deletions

View file

@ -11,7 +11,7 @@ can use a remote conda environment, including the corresponding remote python
executable and packages."
(interactive)
(require 'conda)
(when-let (home (read-directory-name "Set conda home: " "~" nil nil conda-anaconda-home))
(when-let* ((home (read-directory-name "Set conda home: " "~" nil nil conda-anaconda-home)))
(setq conda-anaconda-home home)
(message "Successfully changed conda home to: %s" (abbreviate-file-name home))))

View file

@ -18,7 +18,7 @@
;;;###autoload
(defun +python-pyenv-read-version-from-file ()
"Read pyenv version from .python-version file."
(when-let (root-path (projectile-locate-dominating-file default-directory ".python-version"))
(when-let* ((root-path (projectile-locate-dominating-file default-directory ".python-version")))
(let* ((file-path (expand-file-name ".python-version" root-path))
(version
(with-temp-buffer

View file

@ -16,7 +16,7 @@ falling back on searching your PATH."
(let ((bin (expand-file-name (concat conda-env-current-name "/" exe-root)
(conda-env-default-location))))
(if (file-executable-p bin) bin))))
((when-let (bin (projectile-locate-dominating-file default-directory exe-root))
((when-let* ((bin (projectile-locate-dominating-file default-directory exe-root)))
(setq-local doom-modeline-python-executable (expand-file-name exe-root bin))))
((executable-find exe))))))