From: Kim F. Storm <storm@cua.dk>
Date: Mon, 26 Aug 2002 12:38:59 +0000 (+0000)
Subject: (suppress-keymap): Use command remapping instead of
X-Git-Tag: ttn-vms-21-2-B4~13559
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=098ba983220689662e04b2baf4c5acd8bf602f95;p=emacs.git

(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 7ca081ebfef..6d5f4df5110 100644
--- 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)