Mercurial > emacs
comparison lisp/emulation/viper-init.el @ 64750:fbdb9482b6fc
2005-08-06 Michael Kifer <kifer@cs.stonybrook.edu>
* viper-cmd.el (viper-harness-minor-mode,viper-exec-delete,
viper-exec-yank,viper-put-back): don't display modification msg if in
the minibuffer.
* viper-init.el (viper-replace-overlay-cursor-color,
viper-insert-state-cursor-color,viper-vi-state-cursor-color): make
variables frame local.
* viper-util.el (viper-append-filter-alist): use append instead of
nconc.
* viper.el (viper-vi-state-mode-list,viper-emacs-state-mode-list): move
help-mode and completion-list-mode from the first list to the second.
(viper-mode): docstring.
(viper-go-away,viper-non-hook-settings): don't localize
minor-mode-alist in newer emacsen.
Add advice to set-cursor-color.
Don't bind "\C-c\\".
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Sat, 06 Aug 2005 16:58:54 +0000 |
| parents | 34bd8e434dd7 |
| children | 511f8e9d22ca 532e0a9335a9 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
| 64749:5e716228ee1e | 64750:fbdb9482b6fc |
|---|---|
| 422 | 422 |
| 423 (defcustom viper-replace-overlay-cursor-color "Red" | 423 (defcustom viper-replace-overlay-cursor-color "Red" |
| 424 "*Cursor color when Viper is in Replace state." | 424 "*Cursor color when Viper is in Replace state." |
| 425 :type 'string | 425 :type 'string |
| 426 :group 'viper) | 426 :group 'viper) |
| 427 (if (fboundp 'make-variable-frame-local) | |
| 428 (make-variable-frame-local 'viper-replace-overlay-cursor-color)) | |
| 429 | |
| 427 (defcustom viper-insert-state-cursor-color "Green" | 430 (defcustom viper-insert-state-cursor-color "Green" |
| 428 "Cursor color when Viper is in insert state." | 431 "Cursor color when Viper is in insert state." |
| 429 :type 'string | 432 :type 'string |
| 430 :group 'viper) | 433 :group 'viper) |
| 434 (if (fboundp 'make-variable-frame-local) | |
| 435 (make-variable-frame-local 'viper-insert-state-cursor-color)) | |
| 431 | 436 |
| 432 ;; internal var, used to remember the default cursor color of emacs frames | 437 ;; internal var, used to remember the default cursor color of emacs frames |
| 433 (defvar viper-vi-state-cursor-color nil) | 438 (defvar viper-vi-state-cursor-color nil) |
| 439 (if (fboundp 'make-variable-frame-local) | |
| 440 (make-variable-frame-local 'viper-vi-state-cursor-color)) | |
| 434 | 441 |
| 435 (viper-deflocalvar viper-replace-overlay nil "") | 442 (viper-deflocalvar viper-replace-overlay nil "") |
| 436 (put 'viper-replace-overlay 'permanent-local t) | 443 (put 'viper-replace-overlay 'permanent-local t) |
| 437 | 444 |
| 438 (defcustom viper-replace-region-end-delimiter "$" | 445 (defcustom viper-replace-region-end-delimiter "$" |