diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2026-01-04 12:03:27 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2026-01-04 12:03:27 +0100 |
| commit | f8682a046a57525754ebc812ba3ae9c973db083b (patch) | |
| tree | f13be30f2be180ed7f4ec7a9f9290d078bd1eeda /cape-keyword.el | |
| parent | 93694ae3c1862bd835195669a55a3c817a8e7c58 (diff) | |
Use when-let*
Diffstat (limited to 'cape-keyword.el')
| -rw-r--r-- | cape-keyword.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/cape-keyword.el b/cape-keyword.el index 2e5d1f1..3142819 100644 --- a/cape-keyword.el +++ b/cape-keyword.el @@ -403,9 +403,9 @@ (defun cape--keyword-list () "Return keywords for current major mode." - (when-let ((kw (or (alist-get major-mode cape-keyword-list) - (when-let ((remap (rassq major-mode major-mode-remap-alist))) - (alist-get (car remap) cape-keyword-list))))) + (when-let* ((kw (or (alist-get major-mode cape-keyword-list) + (when-let* ((remap (rassq major-mode major-mode-remap-alist))) + (alist-get (car remap) cape-keyword-list))))) (if (symbolp (car kw)) (alist-get (car kw) cape-keyword-list) kw))) (defvar cape--keyword-properties @@ -423,9 +423,9 @@ If INTERACTIVE is nil the function acts like a capf." (interactive (list t)) (if interactive (cape-interactive #'cape-keyword) - (when-let (keywords (cape--keyword-list)) - (let ((bounds (cape--bounds 'symbol))) - `(,(car bounds) ,(cdr bounds) ,keywords ,@cape--keyword-properties))))) + (when-let* ((keywords (cape--keyword-list)) + (bounds (cape--bounds 'symbol))) + `(,(car bounds) ,(cdr bounds) ,keywords ,@cape--keyword-properties)))) (provide 'cape-keyword) ;;; cape-keyword.el ends here |