From: Brian Fox <bfox@gnu.org>
Date: Tue, 21 Sep 1993 07:47:15 +0000 (+0000)
Subject: (suppress-keymap): Use substitute-key-definition instead of manually
X-Git-Tag: emacs-19.34~11084
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80e7b471b6dd14561f9dc314922467423e55fc5b;p=emacs.git

(suppress-keymap): Use substitute-key-definition instead of manually
checking each key (we were using 127 instead of 255 anyway).
---

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)