From ca31697cc95491c19ff257c29bdab3b88d043b09 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 25 Aug 2026 21:11:27 +0100 Subject: emacs 31 --- attic/elisp/misc.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'attic/elisp/misc.el') 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) -- cgit v1.2.3