Commit 57b16162 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

Remove references to universal-argument-num-events.

* lisp/autoarg.el (autoarg-kp-digit-argument):
* lisp/electric.el (Electric-command-loop):
* lisp/kmacro.el (kmacro-step-edit-insert):
  Do not set universal-argument-num-events.
parent a84683fd
2013-09-23 Juanma Barranquero <>
* autoarg.el (autoarg-kp-digit-argument):
* electric.el (Electric-command-loop):
* kmacro.el (kmacro-step-edit-insert):
Do not set universal-argument-num-events.
2013-09-22 Leo Liu <>
* files.el (interpreter-mode-alist): Add octave.
......@@ -75,7 +75,6 @@
(setq prefix-arg (if (zerop digit) '- (- digit))))
(setq prefix-arg digit))))
(setq universal-argument-num-events (length (this-command-keys)))
(setq overriding-terminal-local-map universal-argument-map))
(defvar autoarg-kp-mode-map
......@@ -78,8 +78,6 @@
(setq last-command-event (aref cmd (1- (length cmd)))
this-command (key-binding cmd t)
cmd this-command)
;; This makes universal-argument-other-key work.
(setq universal-argument-num-events 0)
(if (or (prog1 quit-flag (setq quit-flag nil))
(eq last-input-event ?\C-g))
(progn (setq unread-command-events nil
......@@ -1194,12 +1194,10 @@ following additional answers: `insert', `insert-1', `replace', `replace-1',
(setq cmd 'ignore)
((memq cmd kmacro-step-edit-prefix-commands)
(setq universal-argument-num-events 0)
((eq cmd 'universal-argument-other-key)
(setq kmacro-step-edit-action t)
(setq universal-argument-num-events 0)
(if (numberp kmacro-step-edit-inserting)
(setq kmacro-step-edit-inserting nil))
......@@ -1214,7 +1212,6 @@ following additional answers: `insert', `insert-1', `replace', `replace-1',
(setq kmacro-step-edit-prefix-index nil)
(setq overriding-terminal-local-map nil)
(setq universal-argument-num-events nil)
(setq next-index kmacro-step-edit-key-index)
(t nil))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment