diff options
| author | David Kastrup <dak@gnu.org> | 2015-07-25 18:54:42 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2015-08-04 14:34:15 +0200 |
| commit | 5022e27dac4c13651941e425dbec5b3a2cecdae4 (patch) | |
| tree | 696d748c8abc3aea1bfd5305a8e71dc985053496 /lisp/obsolete/vip.el | |
| parent | 227e996946d4629fa8f6d665564a37668290c87f (diff) | |
| download | emacs-5022e27dac4c13651941e425dbec5b3a2cecdae4.tar.gz | |
; Do not overwrite preexisting contents of unread-command-events
Diffstat (limited to 'lisp/obsolete/vip.el')
| -rw-r--r-- | lisp/obsolete/vip.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/obsolete/vip.el b/lisp/obsolete/vip.el index d6adbd4d421..0c345e26f80 100644 --- a/lisp/obsolete/vip.el +++ b/lisp/obsolete/vip.el @@ -462,7 +462,8 @@ ARG is used as the prefix value for the executed command. If EVENTS is a list of events, which become the beginning of the command." (interactive "P") (let (com key (old-map (current-local-map))) - (if events (setq unread-command-events events)) + (if events (setq unread-command-events + (append events unread-command-events))) (setq prefix-arg arg) (use-local-map vip-emacs-local-map) (unwind-protect @@ -518,7 +519,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-events (list char))) + (push char unread-command-events)) (defun vip-prefix-arg-com (char value com) "Vi operator as prefix argument." @@ -572,7 +573,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-events (list char))) + (push char unread-command-events)) ;; as com is non-nil, this means that we have a command to execute (if (or (= (car com) ?r) (= (car com) ?R)) ;; execute appropriate region command. |