Mercurial > emacs

diff lisp/emulation/viper.el @ 90488:4094c5298ae1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 314-319) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 107) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-78
author Miles Bader <miles@gnu.org>
date Tue, 20 Jun 2006 07:35:06 +0000
parents d1c5430c5bff 4033086b16b6
children 6823a91487f2
line wrap: on
line diff
--- a/lisp/emulation/viper.el	Tue Jun 20 01:17:33 2006 +0000
+++ b/lisp/emulation/viper.el	Tue Jun 20 07:35:06 2006 +0000
@@ -534,6 +534,10 @@
 (defun viper-mode ()
   "Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Viper'."
   (interactive)
+  (if (null viper-vi-state-cursor-color)
+      (modify-frame-parameters
+	(selected-frame)
+	(list (cons 'viper-vi-state-cursor-color (viper-get-cursor-color)))))
   (if (not noninteractive)
       (progn
 	;; if the user requested viper-mode explicitly
@@ -545,8 +549,6 @@
 	(if viper-first-time ; Important check.  Prevents mix-up of startup
 	    (progn	     ; and expert-level msgs when viper-mode recurses
 	      (setq viper-first-time nil)
-	      (setq viper-vi-state-cursor-color
-		    (viper-get-cursor-color))
 	      (if (not viper-inhibit-startup-message)
 		  (save-window-excursion
 		    (setq viper-inhibit-startup-message t)