Mercurial > emacs
comparison lisp/emulation/viper.el @ 106192:a2ee981efbec
2009-11-22 Michael Kifer <kifer@cs.stonybrook.edu>
* viper-cmd.el: use viper-last-command-char instead of
last-command-char/last-command-event.
(viper-prefix-arg-value): do correct conversion of event-char for
XEmacs.
* viper-util.el, viper.el: use viper-last-command-char instead of
last-command-char/last-command-event.
* ediff-init.el, ediff-mult.el, ediff-util.el: relpace
last-command-char and last-command-event with (ediff-last-command-char) everywhere.
* ediff-vers.el (ediff-rcs-get-output-buffer): make sure the buffer is
created in fundamental mode.
* ediff.el (ediff-version): revert the change of interactive-p to
called-interactively-p.
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Sun, 22 Nov 2009 03:14:14 +0000 |
| parents | 68d36fa6dccb |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 106191:baf1843cbc25 | 106192:a2ee981efbec |
|---|---|
| 887 (viper-change-state-to-emacs))) | 887 (viper-change-state-to-emacs))) |
| 888 | 888 |
| 889 (defadvice self-insert-command (around viper-self-insert-ad activate) | 889 (defadvice self-insert-command (around viper-self-insert-ad activate) |
| 890 "Ignore all self-inserting keys in the vi-state." | 890 "Ignore all self-inserting keys in the vi-state." |
| 891 (if (and (eq viper-current-state 'vi-state) | 891 (if (and (eq viper-current-state 'vi-state) |
| 892 (called-interactively-p 'interactive)) | 892 ;; Do not use called-interactively-p here. XEmacs does not have it |
| 893 ;; and interactive-p is just fine. | |
| 894 ;; (called-interactively-p 'interactive)) | |
| 895 (interactive-p)) | |
| 893 (beep 1) | 896 (beep 1) |
| 894 ad-do-it | 897 ad-do-it |
| 895 )) | 898 )) |
| 896 | 899 |
| 897 (defadvice set-cursor-color (after viper-set-cursor-color-ad activate) | 900 (defadvice set-cursor-color (after viper-set-cursor-color-ad activate) |