[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/viper.el,v
From: |
Michael Kifer |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/viper.el,v |
Date: |
Wed, 09 Jan 2008 06:16:10 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Michael Kifer <kifer> 08/01/09 06:16:09
Index: emulation/viper.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper.el,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -b -r1.110 -r1.111
--- emulation/viper.el 8 Jan 2008 20:46:51 -0000 1.110
+++ emulation/viper.el 9 Jan 2008 06:16:05 -0000 1.111
@@ -9,7 +9,7 @@
;; Author: Michael Kifer <address@hidden>
;; Keywords: emulations
-(defconst viper-version "3.14 of August 18, 2007"
+(defconst viper-version "3.14 of January 09, 2008"
"The current version of Viper")
;; This file is part of GNU Emacs.
@@ -857,7 +857,9 @@
(modify-frame-parameters
(selected-frame)
(list (cons 'viper-vi-state-cursor-color
- (viper-get-cursor-color))))))
+ (viper-get-cursor-color))))
+ (setq viper-vi-state-cursor-color (viper-get-cursor-color))
+ ))
;; Tell vc-diff to put *vc* in Vi mode
(if (featurep 'vc)
@@ -900,6 +902,7 @@
(modify-frame-parameters
(selected-frame)
(list (cons 'viper-vi-state-cursor-color (ad-get-arg 0))))
+ (setq viper-vi-state-cursor-color (ad-get-arg 0))
)
(when (and (fboundp 'add-to-ordered-list) (boundp
'emulation-mode-map-alists))