changeset 47042:74f8b41068e0

(suppress-keymap): Use command remapping instead of substitute-key-definition to undefine self-inserting keys.
author Kim F. Storm <storm@cua.dk>
date Mon, 26 Aug 2002 12:38:59 +0000
parents 308c03d953c8
children 360c6fcdde04
files lisp/subr.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)