diff options
| author | Glenn Morris | 2009-01-09 05:00:56 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-01-09 05:00:56 +0000 |
| commit | 1e4bd40da283e6bbd9f501b7fcbc748353173f41 (patch) | |
| tree | 023038713fe26febec1d66ff460fe26aea104dc4 /lisp/emulation | |
| parent | cfa29281070a1f7868ed42f330d9a666b2fc39e2 (diff) | |
| download | emacs-1e4bd40da283e6bbd9f501b7fcbc748353173f41.tar.gz emacs-1e4bd40da283e6bbd9f501b7fcbc748353173f41.zip | |
Replace last-input-char with last-input-event.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/viper-cmd.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 95f601716fa..7a793b92d9a 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el | |||
| @@ -2546,7 +2546,7 @@ These keys are ESC, RET, and LineFeed" | |||
| 2546 | (let (com) | 2546 | (let (com) |
| 2547 | (if (eq this-command 'viper-intercept-ESC-key) | 2547 | (if (eq this-command 'viper-intercept-ESC-key) |
| 2548 | (setq com 'viper-exit-insert-state) | 2548 | (setq com 'viper-exit-insert-state) |
| 2549 | (viper-set-unread-command-events last-input-char) | 2549 | (viper-set-unread-command-events last-input-event) |
| 2550 | (setq com (key-binding (viper-read-key-sequence nil)))) | 2550 | (setq com (key-binding (viper-read-key-sequence nil)))) |
| 2551 | 2551 | ||
| 2552 | (condition-case conds | 2552 | (condition-case conds |
| @@ -2567,7 +2567,7 @@ These keys are ESC, RET, and LineFeed" | |||
| 2567 | (if (or (< (point) (viper-replace-start)) | 2567 | (if (or (< (point) (viper-replace-start)) |
| 2568 | (> (point) (viper-replace-end))) | 2568 | (> (point) (viper-replace-end))) |
| 2569 | (let (viper-replace-minor-mode com) | 2569 | (let (viper-replace-minor-mode com) |
| 2570 | (viper-set-unread-command-events last-input-char) | 2570 | (viper-set-unread-command-events last-input-event) |
| 2571 | (setq com (key-binding (read-key-sequence nil))) | 2571 | (setq com (key-binding (read-key-sequence nil))) |
| 2572 | (condition-case conds | 2572 | (condition-case conds |
| 2573 | (command-execute com) | 2573 | (command-execute com) |