From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 19 Jun 1995 16:15:06 +0000 (+0000)
Subject: (negative-argument, digit-argument):
X-Git-Tag: emacs-19.34~3546
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9ff190da76ae9ab57e16d4c89b5df69a166f2de;p=emacs.git

(negative-argument, digit-argument):
Set overriding-terminal-local-map like C-u.
(universal-argument-map): Add binding for \e t.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 52d9290fd67..265b084dee3 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -938,6 +938,7 @@ In either case, the output is inserted after point (leaving mark after it)."
 (defconst universal-argument-map
   (let ((map (make-sparse-keymap)))
     (define-key map [t] 'universal-argument-other-key)
+    (define-key map (vector meta-prefix-char t) 'universal-argument-other-key)
     (define-key map [switch-frame] nil)
     (define-key map [?\C-u] 'universal-argument-more)
     (define-key map [?-] 'universal-argument-minus)
@@ -983,7 +984,8 @@ Repeating \\[universal-argument] without digits or minus sign
 	((eq arg '-)
 	 (setq prefix-arg nil))
 	(t
-	 (setq prefix-arg '-))))
+	 (setq prefix-arg '-)))
+  (setq overriding-terminal-local-map universal-argument-map))
 
 (defun digit-argument (arg)
   "Part of the numeric argument for the next command.
@@ -997,7 +999,8 @@ Repeating \\[universal-argument] without digits or minus sign
 	   ;; Treat -0 as just -, so that -01 will work.
 	   (setq prefix-arg (if (zerop digit) '- (- digit))))
 	  (t
-	   (setq prefix-arg digit)))))
+	   (setq prefix-arg digit))))
+  (setq overriding-terminal-local-map universal-argument-map))
 
 ;; For backward compatibility, minus with no modifiers is an ordinary
 ;; command if digits have already been entered.