Mercurial > emacs
changeset 4767:12ff77449baa
(suppress-keymap): Use substitute-key-definition instead of manually
checking each key (we were using 127 instead of 255 anyway).
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Tue, 21 Sep 1993 07:47:15 +0000 |
| parents | ec8c8721b7e3 |
| children | 9d84105b1248 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 1 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Tue Sep 21 07:46:03 1993 +0000 +++ b/lisp/subr.el Tue Sep 21 07:47:15 1993 +0000 @@ -111,11 +111,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." - (let ((i 0)) - (while (<= i 127) - (if (eql (lookup-key global-map (char-to-string i)) 'self-insert-command) - (define-key map (char-to-string i) 'undefined)) - (setq i (1+ i)))) + (substitute-key-definition 'self-insert-command 'undefined map global-map) (or nodigits (let (loop) (define-key map "-" 'negative-argument)