diff options
| author | Brian Fox | 1993-09-21 07:47:15 +0000 |
|---|---|---|
| committer | Brian Fox | 1993-09-21 07:47:15 +0000 |
| commit | 80e7b471b6dd14561f9dc314922467423e55fc5b (patch) | |
| tree | e6121c2eef457c3eb3f0d8016c03869243da76b2 | |
| parent | fc68b5523cf618d3236751f76ebb1e3720717896 (diff) | |
| download | emacs-80e7b471b6dd14561f9dc314922467423e55fc5b.tar.gz emacs-80e7b471b6dd14561f9dc314922467423e55fc5b.zip | |
(suppress-keymap): Use substitute-key-definition instead of manually
checking each key (we were using 127 instead of 255 anyway).
| -rw-r--r-- | lisp/subr.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index b2b27e62ba4..aa158175998 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -111,11 +111,7 @@ If ALL-FRAMES is neither nil nor t, stick strictly to the selected frame." | |||
| 111 | "Make MAP override all normally self-inserting keys to be undefined. | 111 | "Make MAP override all normally self-inserting keys to be undefined. |
| 112 | Normally, as an exception, digits and minus-sign are set to make prefix args, | 112 | Normally, as an exception, digits and minus-sign are set to make prefix args, |
| 113 | but optional second arg NODIGITS non-nil treats them like other chars." | 113 | but optional second arg NODIGITS non-nil treats them like other chars." |
| 114 | (let ((i 0)) | 114 | (substitute-key-definition 'self-insert-command 'undefined map global-map) |
| 115 | (while (<= i 127) | ||
| 116 | (if (eql (lookup-key global-map (char-to-string i)) 'self-insert-command) | ||
| 117 | (define-key map (char-to-string i) 'undefined)) | ||
| 118 | (setq i (1+ i)))) | ||
| 119 | (or nodigits | 115 | (or nodigits |
| 120 | (let (loop) | 116 | (let (loop) |
| 121 | (define-key map "-" 'negative-argument) | 117 | (define-key map "-" 'negative-argument) |