add variable to customize keypad behavior on self insert

Adds the boolean variable meow-keypad-self-insert-undefined,
true by default so this doesn't change any default behavior.

If the user sets this to nil, then any undefined command from the
keypad that would trigger self insert is ignored.

Author: eshrh

CUSTOMIZATIONS.org

@@ -183,6 +183,14 @@ Default: ='((?c . ?c) (?h . ?h) (?x . ?x))=
 Alist of keys to begin keypad translation. For instance, given the default
 value, pressing "c" in keypad mode will look up it's value in the alist, and
 add "C-c" to the keypad.
+** meow-keypad-self-insert-undefined
+
+Default: =t=
+
+Whether to self-insert a key when it is undefined in the keypad. If
+set to =t=, then pressing and undefined key in the keypad that is
+bound to self insert will insert that character. If nil, then ignore
+the key.
 
 ** meow-char-thing-table
 

meow-helpers.el

@@ -226,6 +226,11 @@ This function produces several items:
 					    "meow--update-cursor")
 			    ,keymap))))
 
+(defun meow--is-self-insertp (cmd)
+  (and (symbolp cmd)
+       (string-match-p "\\`.*self-insert.*\\'"
+                       (symbol-name cmd))))
+
 (defun meow--mode-guess-state ()
   "Get initial state for current major mode.
 If any of the keys a-z are bound to self insert, then we should
@@ -234,11 +239,7 @@ probably start in normal mode, otherwise we start in motion."
     (meow--disable-current-state)
     (let* ((letters (split-string "abcdefghijklmnopqrstuvwxyz" "" t))
            (bindings (mapcar #'key-binding letters))
-           (any-self-insert (cl-some (lambda (cmd)
-                                       (and (symbolp cmd)
-                                            (string-match-p "\\`.*self-insert.*\\'"
-                                                            (symbol-name cmd))))
-                                     bindings)))
+           (any-self-insert (cl-some #'meow--is-self-insertp bindings)))
       (meow--switch-state state t)
       (if any-self-insert
           'normal

meow-keypad.el

@@ -39,6 +39,7 @@
 (require 'subr-x)
 (require 'meow-var)
 (require 'meow-util)
+(require 'meow-helpers)
 
 (defun meow--keypad-format-upcase (k)
   "Return S-k for upcase k."
@@ -66,8 +67,11 @@
    (t "")))
 
 (defun meow--keypad-lookup-key (keys)
-  (let ((overriding-local-map meow--keypad-base-keymap))
-    (key-binding keys)))
+  (let* ((overriding-local-map meow--keypad-base-keymap)
+         (keybind (key-binding keys)))
+    (unless (and (meow--is-self-insertp keybind)
+                 (not meow-keypad-self-insert-undefined))
+      keybind)))
 
 (defun meow--keypad-has-sub-meta-keymap-p ()
   (and (not meow--use-literal)

meow-var.el

@@ -103,6 +103,11 @@ This will affect how selection is displayed."
   :group 'meow
   :type 'boolean)
 
+(defcustom meow-keypad-self-insert-undefined t
+  "Whether to self-insert a key in keypad mode if it is undefined"
+  :group 'meow
+  :type 'boolean)
+
 (defcustom meow-char-thing-table
   '((?r . round)
     (?s . square)