diff -c /home/steve/.emacs.d/elpa/caps-lock-1.0/caps-lock.el_orig /home/steve/.emacs.d/elpa/caps-lock-1.0/caps-lock.el
*** /home/steve/.emacs.d/elpa/caps-lock-1.0/caps-lock.el_orig	2024-06-27 11:21:19.635674501 +0200
--- /home/steve/.emacs.d/elpa/caps-lock-1.0/caps-lock.el	2024-09-26 11:10:54.443573430 +0200
***************
*** 22,35 ****

  ;;; Code:

! (defvar caps-lock-commands
!   '(self-insert-command isearch-printing-char)
!   "List of commands that are subject to `caps-lock-mode'.")

  ;;;###autoload
  (define-minor-mode caps-lock-mode
    "Make self-inserting keys invert the capitalization."
!   :global t
    (if caps-lock-mode
        (add-hook 'pre-command-hook #'caps-lock--pch)
      (remove-hook 'pre-command-hook #'caps-lock--pch)))
--- 22,38 ----

  ;;; Code:

! (defcustom caps-lock-commands '(self-insert-command isearch-printing-char)
!   "List of commands that are subject to `caps-lock-mode'."
!   :type '(repeat (restricted-sexp :match-alternatives (commandp null)))
!   ;; FIXME: which group, or both or neither?  (Fix below too?)
!   ;; :group 'editing
!   :group 'convenience)

  ;;;###autoload
  (define-minor-mode caps-lock-mode
    "Make self-inserting keys invert the capitalization."
!   :global t :group 'convenience
    (if caps-lock-mode
        (add-hook 'pre-command-hook #'caps-lock--pch)
      (remove-hook 'pre-command-hook #'caps-lock--pch)))

Diff finished.  Thu Sep 26 12:05:47 2024