emacs 31main

1 files changed, 4 insertions, 4 deletions

diff --git a/attic/elisp/misc.el b/attic/elisp/misc.el
index 8fe9bfd..c2a6bd3 100644
--- a/attic/elisp/misc.el
+++ b/attic/elisp/misc.el
@@ -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"
@@ -903,7 +903,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 ()
@@ -1263,8 +1263,8 @@ It should be the title of the web page as returned by `rdrview'"
   :config
   (defun jao-ement-track (event room session)
     (when (ement-notify--room-unread-p event room session)
-      (when-let ((n (ement-room--buffer-name room))
-                 (b (get-buffer n)))
+      (when-let* ((n (ement-room--buffer-name room))
+                  (b (get-buffer n)))
         (tracking-add-buffer b))))
 
   (add-hook 'ement-event-hook #'jao-ement-track)