From ca31697cc95491c19ff257c29bdab3b88d043b09 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 25 Aug 2026 21:11:27 +0100 Subject: emacs 31 --- lib/doc/jao-org-notes.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/doc/jao-org-notes.el') diff --git a/lib/doc/jao-org-notes.el b/lib/doc/jao-org-notes.el index 4ec0221..fbe3c1f 100644 --- a/lib/doc/jao-org-notes.el +++ b/lib/doc/jao-org-notes.el @@ -163,7 +163,7 @@ Search terms that start with a colon are interpreted as tags, and can appear in any order in the tags list. " (interactive) - (when-let (f (jao-org-notes--consult-rg "Search tags and titles: ")) + (when-let* ((f (jao-org-notes--consult-rg "Search tags and titles: "))) (find-file f))) (defvar jao-org-notes-consult-ripgrep-args @@ -207,7 +207,7 @@ appear in any order in the tags list. (file (completing-read "File: " res nil t nil)) (entry (assoc file res))) (progn (find-file (cadr entry)) - (when-let (line (caddr entry)) (goto-line line))) + (when-let* ((line (caddr entry))) (goto-line line))) (message "Nobody links here!"))) (defun jao-org-notes-insert-tags () @@ -218,7 +218,7 @@ appear in any order in the tags list. (defun jao-org-notes-insert-link () "Select a note file (with completion) and insert a link to it." (interactive) - (when-let (f (jao-org-notes--consult-rg "Notes file: ")) + (when-let* ((f (jao-org-notes--consult-rg "Notes file: "))) (let ((rel-path (file-relative-name f default-directory)) (title (with-current-buffer (find-file-noselect f) (save-excursion -- cgit v1.2.3