diff options
| author | jao <jao@gnu.org> | 2024-11-12 18:58:14 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2024-11-12 18:58:14 +0000 |
| commit | 418212e4eb963813c078cf290cddfe7e3defd7ed (patch) | |
| tree | 3c265c395b0afe67f88f5e18a34f368a88f970d6 /attic/elisp/misc.el | |
| parent | 8ddc2d688cd37693320e46aa3d35d72f06e5bab3 (diff) | |
| download | elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.gz elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.bz2 | |
Revert "{if,when}-let deprecation in emacs 31"main
This reverts commit 4308710de811e3b4e2fb47f9024439df03e96b90.
Diffstat (limited to 'attic/elisp/misc.el')
| -rw-r--r-- | attic/elisp/misc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/attic/elisp/misc.el b/attic/elisp/misc.el index 4cae427..2f1bcb0 100644 --- a/attic/elisp/misc.el +++ b/attic/elisp/misc.el @@ -25,7 +25,7 @@ ;; (defun jao-erlang-compile (arg) ;; (interactive "P") ;; (save-some-buffers) - ;; (when-let* ((mname (jao-erlang-current-module))) + ;; (when-let ((mname (jao-erlang-current-module))) ;; (with-current-buffer (jao-vterm-repl) ;; (vterm-send-string (format "c(%s).\n" mname)) ;; (sit-for 0) @@ -600,7 +600,7 @@ ;;; eldoc for magit status/log buffers (defun jao-magit-eldoc-for-commit (_callback) - (when-let* ((commit (magit-commit-at-point))) + (when-let ((commit (magit-commit-at-point))) (with-temp-buffer (magit-git-insert "show" "--format=format:%an <%ae>, %ar" @@ -908,7 +908,7 @@ (res (funcall fn))) (while (and res tags) (setq res (seq-intersection res (funcall fn)))) (unless res (user-error "No notes found")) - (when-let* ((f (completing-read "Select file: " (mapcar #'car res)))) + (when-let (f (completing-read "Select file: " (mapcar #'car res))) (find-file (cadr (assoc f res)))))) (defun jao-sway-run-or-focus-tidal () |