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 /custom/jao-custom-completion.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 'custom/jao-custom-completion.el')
| -rw-r--r-- | custom/jao-custom-completion.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/custom/jao-custom-completion.el b/custom/jao-custom-completion.el index cdffcdc..9524e23 100644 --- a/custom/jao-custom-completion.el +++ b/custom/jao-custom-completion.el @@ -175,9 +175,9 @@ (defvar jao-consult-narrow nil) (defun jao-consult-initial-narrow () - (when-let* ((c (cond ((eq this-command #'consult-buffer) - (cdr (assoc (jao-afio-frame-name) jao-consult-narrow))) - ((eq this-command #'consult-mode-command) ?m)))) + (when-let (c (cond ((eq this-command #'consult-buffer) + (cdr (assoc (jao-afio-frame-name) jao-consult-narrow))) + ((eq this-command #'consult-mode-command) ?m))) (setq unread-command-events (append unread-command-events `(,c 32))))) (add-hook 'minibuffer-setup-hook #'jao-consult-initial-narrow) @@ -290,7 +290,7 @@ (defun jao-embark-targets--w3m-anchor () (when (not (region-active-p)) - (when-let* ((url (or (jao-url-around-point) + (when-let ((url (or (jao-url-around-point) (thing-at-point 'url) (and (derived-mode-p 'w3m-mode) (or (w3m-anchor) w3m-current-url)) @@ -396,12 +396,12 @@ (with-eval-after-load "notmuch" (defun jao-link-hint--notmuch-next-part (&optional bound) - (when-let* ((p (next-single-property-change (point) :notmuch-part nil bound))) + (when-let (p (next-single-property-change (point) :notmuch-part nil bound)) (and (< p (or bound (point-max))) p))) (defun jao-link-hint--notmuch-part-p () (and (get-text-property (point) :notmuch-part) - (when-let* ((b (button-at (point)))) (button-label b)))) + (when-let (b (button-at (point))) (button-label b)))) (link-hint-define-type 'notmuch-part :next #'jao-link-hint--notmuch-next-part |