mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

Replace last-input-char with last-input-event.

Browse source
This commit is contained in:
Glenn Morris 2009-01-09 05:00:56 +00:00
parent cfa2928107
commit 1e4bd40da2
11 changed files with 44 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/electric.el
View file

@ -71,7 +71,7 @@
;; 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))
(eq last-input-event ?\C-g))
(progn (setq unread-command-events nil
prefix-arg nil)
;; If it wasn't cancelling a prefix character, then quit.
@ -87,7 +87,7 @@
(progn (command-execute cmd)
(setq last-command this-command)
(if (or (prog1 quit-flag (setq quit-flag nil))
(eq last-input-char ?\C-g))
(eq last-input-event ?\C-g))
(progn (setq unread-command-events nil)
(if (not inhibit-quit)
(progn (ding)