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/double.el | |
| parent | 227e996946d4629fa8f6d665564a37668290c87f (diff) | |
| download | emacs-5022e27dac4c13651941e425dbec5b3a2cecdae4.tar.gz | |
; Do not overwrite preexisting contents of unread-command-events
Diffstat (limited to 'lisp/double.el')
| -rw-r--r-- | lisp/double.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/double.el b/lisp/double.el index b06f59cf6a6..ee511e55963 100644 --- a/lisp/double.el +++ b/lisp/double.el @@ -122,9 +122,10 @@ but not `C-u X' or `ESC X' since the X is not the prefix key." (append (make-list (1- (length (nth 1 entry))) 127) (nth 2 entry) - '(magic-end))) + '(magic-end) + unread-command-events)) (vector 127)) - (setq unread-command-events (list new)) + (push new unread-command-events) [ignore]))) ((eq key 'magic-end) ;; End of double event. Ignore. @@ -134,7 +135,8 @@ but not `C-u X' or `ESC X' since the X is not the prefix key." (let ((exp (nth 1 (assoc key double-map)))) (setq double-last-event key) (setq unread-command-events - (append (substring exp 1) '(magic-start))) + (append (substring exp 1) '(magic-start) + unread-command-events)) (vector (aref exp 0))))))) ;;; Mode |