From dbc4e1c12940079cad7b24e1654a0badcda8d6fc Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 26 Jan 1993 01:58:16 +0000 Subject: JimB's changes since January 18th --- lisp/emulation/vip.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/emulation') diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 9c57fdcec69..14da705e602 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el @@ -333,9 +333,9 @@ vi mode. ARG is used as the prefix value for the executed command. If CHAR is given it becomes the first character of the command." (interactive "P") (let (com (buff (current-buffer)) (first t)) - (if char (setq unread-command-event char)) + (if char (setq unread-command-events (list char))) (setq prefix-arg arg) - (while (or first unread-command-event) + (while (or first unread-command-events) ;; this while loop is executed until unread command char will be ;; exhausted. (setq first nil) @@ -393,7 +393,7 @@ obtained so far, and COM is the command part obtained so far." (while (= char ?U) (vip-describe-arg prefix-arg) (setq char (read-char))) - (setq unread-command-event char)) + (setq unread-command-events (list char))) (defun vip-prefix-arg-com (char value com) "Vi operator as prefix argument." @@ -447,7 +447,7 @@ obtained so far, and COM is the command part obtained so far." (while (= char ?U) (vip-describe-arg prefix-arg) (setq char (read-char))) - (setq unread-command-event char)) + (setq unread-command-events (list char))) ;; as com is non-nil, this means that we have a command to execute (if (or (= (car com) ?r) (= (car com) ?R)) ;; execute apropriate region command. -- cgit v1.2.3