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 /lib/doc/jao-org-notes.el | |
| parent | 8ddc2d688cd37693320e46aa3d35d72f06e5bab3 (diff) | |
| download | elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.gz elibs-418212e4eb963813c078cf290cddfe7e3defd7ed.tar.bz2 | |
Revert "{if,when}-let deprecation in emacs 31"
This reverts commit 4308710de811e3b4e2fb47f9024439df03e96b90.
Diffstat (limited to 'lib/doc/jao-org-notes.el')
| -rw-r--r-- | lib/doc/jao-org-notes.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/doc/jao-org-notes.el b/lib/doc/jao-org-notes.el index e47f845..43b8c09 100644 --- a/lib/doc/jao-org-notes.el +++ b/lib/doc/jao-org-notes.el @@ -147,7 +147,7 @@ (defun jao-org-notes-open () "Search for a note file, matching tags and titles with completion." (interactive) - (when-let* ((f (jao-org-notes--consult-rg "Search notes: "))) + (when-let (f (jao-org-notes--consult-rg "Search notes: ")) (find-file f))) (defun jao-org-notes-consult-tags () @@ -180,7 +180,7 @@ (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 () @@ -191,7 +191,7 @@ (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 |