Mercurial > emacs
comparison lisp/emulation/viper-init.el @ 87195:90bd274c1784
(top-level): Use dolist rather than mapc in make-variable-frame-local call.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 09 Dec 2007 02:16:26 +0000 |
| parents | 36d8fe7938ef |
| children | 107ccd98fa12 2fcaae6177a5 |
comparison
equal
deleted
inserted
replaced
| 87194:d28ef61b6463 | 87195:90bd274c1784 |
|---|---|
| 443 | 443 |
| 444 ;; internal var, used to remember the default cursor color of emacs frames | 444 ;; internal var, used to remember the default cursor color of emacs frames |
| 445 (defvar viper-vi-state-cursor-color nil) | 445 (defvar viper-vi-state-cursor-color nil) |
| 446 | 446 |
| 447 (if (fboundp 'make-variable-frame-local) | 447 (if (fboundp 'make-variable-frame-local) |
| 448 (mapc 'make-variable-frame-local | 448 (dolist (v '(viper-replace-overlay-cursor-color |
| 449 '(viper-replace-overlay-cursor-color | 449 viper-insert-state-cursor-color viper-emacs-state-cursor-color |
| 450 viper-insert-state-cursor-color | 450 viper-vi-state-cursor-color)) |
| 451 viper-emacs-state-cursor-color | 451 (make-variable-frame-local v))) |
| 452 viper-vi-state-cursor-color))) | |
| 453 | |
| 454 | 452 |
| 455 (viper-deflocalvar viper-replace-overlay nil "") | 453 (viper-deflocalvar viper-replace-overlay nil "") |
| 456 (put 'viper-replace-overlay 'permanent-local t) | 454 (put 'viper-replace-overlay 'permanent-local t) |
| 457 | 455 |
| 458 (defcustom viper-replace-region-end-delimiter "$" | 456 (defcustom viper-replace-region-end-delimiter "$" |