diff options
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 |