From 80e7b471b6dd14561f9dc314922467423e55fc5b Mon Sep 17 00:00:00 2001 From: Brian Fox Date: Tue, 21 Sep 1993 07:47:15 +0000 Subject: [PATCH] (suppress-keymap): Use substitute-key-definition instead of manually checking each key (we were using 127 instead of 255 anyway). --- lisp/subr.el | 6 +----- 1 file changed, 1 insertion(+), 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." "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) -- 2.39.5