ci: don't load which-key-mode if included in emacs 30

Author: eshrh

meow-shims.el

@@ -386,21 +386,23 @@ Argument ENABLE non-nil means turn on."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; which-key
 
-(defvar which-key-mode)
-(declare-function which-key--create-buffer-and-show "which-key"
-                  (&optional prefix-keys from-keymap filter prefix-title))
+(unless (functionp 'which-key-mode)
+  (defvar which-key-mode)
+  (declare-function which-key--create-buffer-and-show "which-key"
+                    (&optional prefix-keys from-keymap filter prefix-title))
 
-(defvar meow--which-key-setup nil)
+  (defvar meow--which-key-setup nil)
+  (defvar which-key-use-C-h-commands))
 
 (defun meow--which-key-describe-keymap ()
   "Use which-key for keypad popup."
   (if which-key-mode
       (setq
        which-key-use-C-h-commands nil
        meow-keypad-describe-keymap-function
-	(lambda (keymap)
-	  (which-key--create-buffer-and-show nil keymap nil (concat meow-keypad-message-prefix (meow--keypad-format-keys))))
-        meow-keypad-clear-describe-keymap-function 'which-key--hide-popup)
+       (lambda (keymap)
+         (which-key--create-buffer-and-show nil keymap nil (concat meow-keypad-message-prefix (meow--keypad-format-keys))))
+       meow-keypad-clear-describe-keymap-function 'which-key--hide-popup)
 
     (setq meow-keypad-describe-keymap-function 'meow-describe-keymap
           meow-keypad-clear-describe-keymap-function nil