From ee4b6d4c618a48c0bc301ba01dde89893f097713 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 16 Nov 1992 01:31:33 +0000 Subject: [PATCH] * bytecomp.el: Declare unread-command-char an obsolete variable. * vip.el (vip-escape-to-emacs, vip-prefix-arg-value, vip-prefix-arg-com): Use unread-command-event instead of unread-command-char; respect its new semantics. * electric.el (Electric-command-loop): Same. --- lisp/electric.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/electric.el b/lisp/electric.el index a3626a007e..acc002abaa 100644 --- a/lisp/electric.el +++ b/lisp/electric.el @@ -85,7 +85,7 @@ cmd this-command) (if (or (prog1 quit-flag (setq quit-flag nil)) (= last-input-char ?\C-g)) - (progn (setq unread-command-char -1 + (progn (setq unread-command-event nil prefix-arg nil) ;; If it wasn't cancelling a prefix character, then quit. (if (or (= (length (this-command-keys)) 1) @@ -101,7 +101,7 @@ (setq last-command this-command) (if (or (prog1 quit-flag (setq quit-flag nil)) (= last-input-char ?\C-g)) - (progn (setq unread-command-char -1) + (progn (setq unread-command-event nil) (if (not inhibit-quit) (progn (ding) (message "Quit") -- 2.20.1