Mercurial > emacs
comparison lisp/emulation/viper-cmd.el @ 101013:dbe70c3aa01d
Replace last-input-char with last-input-event.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 09 Jan 2009 05:00:56 +0000 |
parents | ad9d2270860e |
children | affb617d6101 |
comparison
equal
deleted
inserted
replaced
101012:eadf79f14b29 | 101013:dbe70c3aa01d |
---|---|
2544 (viper-finish-R-mode) | 2544 (viper-finish-R-mode) |
2545 (viper-finish-change)) | 2545 (viper-finish-change)) |
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 |
2553 (command-execute com) | 2553 (command-execute com) |
2554 (error | 2554 (error |
2565 ;; just have keymap attached to replace overlay. Then the "if part" of this | 2565 ;; just have keymap attached to replace overlay. Then the "if part" of this |
2566 ;; statement can be deleted. | 2566 ;; statement can be deleted. |
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) |
2574 (error | 2574 (error |
2575 (viper-message-conditions conds)))) | 2575 (viper-message-conditions conds)))) |