Mercurial > emacs
diff lisp/subr.el @ 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 | 324b87cc6fdf |
| children | 6e9df2174ee2 |
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)