From 418212e4eb963813c078cf290cddfe7e3defd7ed Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 12 Nov 2024 18:58:14 +0000 Subject: Revert "{if,when}-let deprecation in emacs 31" This reverts commit 4308710de811e3b4e2fb47f9024439df03e96b90. --- lib/prog/jao-compilation.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/prog') diff --git a/lib/prog/jao-compilation.el b/lib/prog/jao-compilation.el index 5bea68e..c099701 100644 --- a/lib/prog/jao-compilation.el +++ b/lib/prog/jao-compilation.el @@ -67,7 +67,7 @@ ;;;###autoload (defun jao-compilation-root (&optional dir) - (when-let* ((rfn (jao-compilation-find-root (or dir (buffer-file-name)) + (when-let ((rfn (jao-compilation-find-root (or dir (buffer-file-name)) jao-compilation-dominating-rx))) (let* ((default-directory (expand-file-name rfn)) (dir (file-name-directory rfn)) @@ -80,13 +80,13 @@ ;;;###autoload (defun jao-compilation-root-file () - (when-let* ((dir (jao-compilation-root))) + (when-let ((dir (jao-compilation-root))) (car (directory-files dir nil jao-compilation-dominating-rx)))) ;;;###autoload (defun jao-find-compilation-root (dir) (when (and (stringp dir) (file-exists-p dir)) - (when-let* ((root (jao-compilation-root dir))) + (when-let ((root (jao-compilation-root dir))) (cons 'transient root)))) ;;;###autoload -- cgit v1.2.3