mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(Electric-command-loop): Set universal-argument-other-key to 0.

Browse source
This commit is contained in:
Richard M. Stallman 1996-04-04 22:06:47 +00:00
parent be2e861f98
commit f867d8d3ae
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/electric.el
View file

@ -67,8 +67,10 @@
(setq prompt-string "->")))
(setq cmd (read-key-sequence prompt-string))
(setq last-command-char (aref cmd (1- (length cmd)))
this-command (key-binding 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-char ?\C-g))
(progn (setq unread-command-events nil