diff options
| author | jao <jao@gnu.org> | 2026-08-25 21:11:27 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-08-25 21:11:27 +0100 |
| commit | ca31697cc95491c19ff257c29bdab3b88d043b09 (patch) | |
| tree | bc14b9744c783dd1121b36ffadf21e3d7dc0bb7a /lib/prog | |
| parent | dba7a443d0edb88869c4df70622543a465cf9304 (diff) | |
| download | elibs-ca31697cc95491c19ff257c29bdab3b88d043b09.tar.gz elibs-ca31697cc95491c19ff257c29bdab3b88d043b09.tar.bz2 | |
emacs 31main
Diffstat (limited to 'lib/prog')
| -rw-r--r-- | lib/prog/jao-compilation.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/prog/jao-compilation.el b/lib/prog/jao-compilation.el index 6c67a7d..fcd8037 100644 --- a/lib/prog/jao-compilation.el +++ b/lib/prog/jao-compilation.el @@ -67,8 +67,8 @@ ;;;###autoload (defun jao-compilation-root (&optional dir) - (when-let ((rfn (jao-compilation-find-root (or dir (buffer-file-name)) - jao-compilation-dominating-rx))) + (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)) (rel-path (jao-path-relative-to dir default-directory))) @@ -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 |