# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1030365539 0
# Node ID 74f8b41068e0a996b8f0a23a72b98af4df82f5d6
# Parent  308c03d953c842512baf3c615dd65574ff8c8f43
(suppress-keymap): Use command remapping instead of
substitute-key-definition to undefine self-inserting keys.

diff -r 308c03d953c8 -r 74f8b41068e0 lisp/subr.el
--- a/lisp/subr.el	Mon Aug 26 12:38:26 2002 +0000
+++ b/lisp/subr.el	Mon Aug 26 12:38:59 2002 +0000
@@ -279,7 +279,7 @@
   "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)