(suppress-keymap): Use command remapping instead of

substitute-key-definition to undefine self-inserting keys.

diff --git a/lisp/subr.el b/lisp/subr.el
index 7ca081ebfeff71a741ad61fb6c2c3798da3b1757..6d5f4df5110acbb3a27758abbd1ba51778520fa4 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -279,7 +279,7 @@ Non-strings in LIST are ignored."
   "Make MAP override all normally self-inserting keys to be undefined.
 Normally, as an exception, digits and minus-sign are set to make prefix args,
 but optional second arg NODIGITS non-nil treats them like other chars."
-  (substitute-key-definition 'self-insert-command 'undefined map global-map)
+  (define-key map [remap self-insert-command] 'undefined)
   (or nodigits
       (let (loop)
        (define-key map "-" 'negative-argument)