From: Glenn Morris Date: Tue, 4 Dec 2007 03:46:45 +0000 (+0000) Subject: (viper-replace-overlay-cursor-color) X-Git-Tag: emacs-pretest-23.0.90~9119 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbfcb1d0f11b41723add0302748f2a468e67f957;p=emacs.git (viper-replace-overlay-cursor-color) (viper-insert-state-cursor-color, viper-emacs-state-cursor-color) (viper-vi-state-cursor-color): Consolidate make-variable-frame-local calls. --- diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index 666c22f961f..539a561bb5b 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el @@ -427,15 +427,11 @@ delete the text being replaced, as in standard Vi." "*Cursor color when Viper is in Replace state." :type 'string :group 'viper) -(if (fboundp 'make-variable-frame-local) - (make-variable-frame-local 'viper-replace-overlay-cursor-color)) (defcustom viper-insert-state-cursor-color "Green" "Cursor color when Viper is in insert state." :type 'string :group 'viper) -(if (fboundp 'make-variable-frame-local) - (make-variable-frame-local 'viper-insert-state-cursor-color)) ;; viper-emacs-state-cursor-color doesn't work well. Causes cursor colors to be ;; confused in some cases. So, this var is nulled for now. @@ -444,13 +440,17 @@ delete the text being replaced, as in standard Vi." "Cursor color when Viper is in Emacs state." :type 'string :group 'viper) -(if (fboundp 'make-variable-frame-local) - (make-variable-frame-local 'viper-emacs-state-cursor-color)) ;; internal var, used to remember the default cursor color of emacs frames (defvar viper-vi-state-cursor-color nil) + (if (fboundp 'make-variable-frame-local) - (make-variable-frame-local 'viper-vi-state-cursor-color)) + (mapc 'make-variable-frame-local + '(viper-replace-overlay-cursor-color + viper-insert-state-cursor-color + viper-emacs-state-cursor-color + viper-vi-state-cursor-color))) + (viper-deflocalvar viper-replace-overlay nil "") (put 'viper-replace-overlay 'permanent-local t)