diff options
| author | Jeremy Bryant | 2024-02-24 11:58:49 +0000 |
|---|---|---|
| committer | Justin Burkett | 2024-02-27 15:08:54 -0500 |
| commit | d69ef9edaae3fc4ad9715e3ce99aa112253b0cdd (patch) | |
| tree | 247dae086e4d5384ab10ed0bfbbf4dd0dd072d92 | |
| parent | bc3c0c619f14f054a878c6e311eaf5ee1d39d471 (diff) | |
| download | emacs-d69ef9edaae3fc4ad9715e3ce99aa112253b0cdd.tar.gz emacs-d69ef9edaae3fc4ad9715e3ce99aa112253b0cdd.zip | |
; Add sharp-quotes to function names
Replace quoted list by (list ...) where each
element is sharp-quoted so that the byte-compiler can check if the
functions exist.
* which-key.el (which-key--paging-functions): Add sharp-quotes to
function names.
| -rw-r--r-- | which-key.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/which-key.el b/which-key.el index a9087e2afc9..600f02f3f89 100644 --- a/which-key.el +++ b/which-key.el | |||
| @@ -525,15 +525,16 @@ This string is fed into `substitute-command-keys'") | |||
| 525 | map) | 525 | map) |
| 526 | "Keymap for C-h commands.") | 526 | "Keymap for C-h commands.") |
| 527 | 527 | ||
| 528 | (defvar which-key--paging-functions '(which-key-C-h-dispatch | 528 | (defvar which-key--paging-functions |
| 529 | which-key-manual-update | 529 | (list #'which-key-C-h-dispatch |
| 530 | which-key-turn-page | 530 | #'which-key-manual-update |
| 531 | which-key-show-next-page-cycle | 531 | #'which-key-turn-page |
| 532 | which-key-show-next-page-no-cycle | 532 | #'which-key-show-next-page-cycle |
| 533 | which-key-show-previous-page-cycle | 533 | #'which-key-show-next-page-no-cycle |
| 534 | which-key-show-previous-page-no-cycle | 534 | #'which-key-show-previous-page-cycle |
| 535 | which-key-undo-key | 535 | #'which-key-show-previous-page-no-cycle |
| 536 | which-key-undo)) | 536 | #'which-key-undo-key |
| 537 | #'which-key-undo)) | ||
| 537 | 538 | ||
| 538 | (defvar which-key-persistent-popup nil | 539 | (defvar which-key-persistent-popup nil |
| 539 | "Whether or not to disable `which-key--hide-popup'.") | 540 | "Whether or not to disable `which-key--hide-popup'.") |