diff options
| author | Jeremy Bryant | 2024-02-20 21:37:10 +0000 |
|---|---|---|
| committer | Justin Burkett | 2024-02-20 19:20:29 -0500 |
| commit | bb61e985778fe63fece1a8a3f79ba5f5f190d2b8 (patch) | |
| tree | 9b5c73fa6f53de041569c100205c8ef4fb00ace8 | |
| parent | 5fd89e57ff66e9eabb082e486d170d741eb6cde2 (diff) | |
| download | emacs-bb61e985778fe63fece1a8a3f79ba5f5f190d2b8.tar.gz emacs-bb61e985778fe63fece1a8a3f79ba5f5f190d2b8.zip | |
Simplify test for empty list
* which-key.el (which-key--show-keymap): Use (null)
| -rw-r--r-- | which-key.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/which-key.el b/which-key.el index 45301725704..2e3f6cb7f9c 100644 --- a/which-key.el +++ b/which-key.el | |||
| @@ -2605,7 +2605,7 @@ KEYMAP is selected interactively by mode in | |||
| 2605 | (keymap-name keymap &optional prior-args all no-paging filter) | 2605 | (keymap-name keymap &optional prior-args all no-paging filter) |
| 2606 | (when prior-args (push prior-args which-key--prior-show-keymap-args)) | 2606 | (when prior-args (push prior-args which-key--prior-show-keymap-args)) |
| 2607 | (let ((bindings (which-key--get-bindings nil keymap filter all))) | 2607 | (let ((bindings (which-key--get-bindings nil keymap filter all))) |
| 2608 | (if (= (length bindings) 0) | 2608 | (if (null bindings) |
| 2609 | (message "which-key: No bindings found in %s" keymap-name) | 2609 | (message "which-key: No bindings found in %s" keymap-name) |
| 2610 | (cond ((listp which-key-side-window-location) | 2610 | (cond ((listp which-key-side-window-location) |
| 2611 | (setq which-key--last-try-2-loc | 2611 | (setq which-key--last-try-2-loc |