Mercurial > emacs
comparison lisp/emulation/viper.el @ 33842:f6a67d77484a
* ediff-diff.el: Moved variables around to have it compile under NT.
* ediff-help.el (ediff-use-long-help-message): made it customizable.
* ediff-init.el (ediff-abbrev-jobname): use capitalize.
* ediff-wind.el (ediff-skip-unsuitable-frames): deleted the
redundant skip-small-frames test.
* viper-cmd.el (viper-change-state-to-vi): disable overwrite mode.
(viper-downgrade-to-insert): protect against errors in hooks.
* viper-init.el (viper-vi-state-hook,viper-insert-state-hook,
viper-replace-state-hook,viper-emacs-state-hook): do cursor handling.
(viper-restore-cursor-type,viper-set-insert-cursor-type): new
functions.
* viper-util.el (viper-memq-char): bug fixes
* viper.el (viper-mode): fix cursor handling.
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Fri, 24 Nov 2000 08:15:11 +0000 |
| parents | 6306740f6938 |
| children | be20c22dc16d |
comparison
equal
deleted
inserted
replaced
| 33841:ed02ff77aa8d | 33842:f6a67d77484a |
|---|---|
| 590 "The last message is in buffer `Viper Startup Message'") | 590 "The last message is in buffer `Viper Startup Message'") |
| 591 (sit-for 4) | 591 (sit-for 4) |
| 592 )) | 592 )) |
| 593 (viper-set-expert-level 'dont-change-unless))) | 593 (viper-set-expert-level 'dont-change-unless))) |
| 594 | 594 |
| 595 (if viper-xemacs-p | |
| 596 (make-variable-buffer-local 'bar-cursor)) | |
| 597 | |
| 595 (or (memq major-mode viper-emacs-state-mode-list) ; don't switch to Vi | 598 (or (memq major-mode viper-emacs-state-mode-list) ; don't switch to Vi |
| 596 (memq major-mode viper-insert-state-mode-list) ; don't switch | 599 (memq major-mode viper-insert-state-mode-list) ; don't switch |
| 597 (viper-change-state-to-vi))))) | 600 (viper-change-state-to-vi))))) |
| 598 | 601 |
| 599 | 602 |
| 658 'mark-even-if-inactive viper-saved-non-viper-variables))) | 661 'mark-even-if-inactive viper-saved-non-viper-variables))) |
| 659 | 662 |
| 660 ;; Ideally, we would like to be able to de-localize local variables | 663 ;; Ideally, we would like to be able to de-localize local variables |
| 661 (viper-delocalize-var 'minor-mode-map-alist) | 664 (viper-delocalize-var 'minor-mode-map-alist) |
| 662 (viper-delocalize-var 'require-final-newline) | 665 (viper-delocalize-var 'require-final-newline) |
| 666 (if viper-xemacs-p (viper-delocalize-var 'bar-cursor)) | |
| 663 | 667 |
| 664 | 668 |
| 665 ;; deactivate all advices done by Viper. | 669 ;; deactivate all advices done by Viper. |
| 666 (ad-deactivate-regexp "viper-") | 670 (ad-deactivate-regexp "viper-") |
| 667 | 671 |