Mercurial > emacs

diff lisp/emulation/viper-init.el @ 104665:dd47ce8e136c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* emulation/viper-init.el (viper-restore-cursor-type): * emulation/cua-base.el (cua--update-indications): Replace default-cursor-type with (default-value 'cursor-type).
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 28 Aug 2009 04:24:59 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
line wrap: on
line diff
--- a/lisp/emulation/viper-init.el	Fri Aug 28 04:21:14 2009 +0000
+++ b/lisp/emulation/viper-init.el	Fri Aug 28 04:24:59 2009 +0000
@@ -35,7 +35,6 @@
 (defvar default-input-method)
 (defvar describe-current-input-method-function)
 (defvar bar-cursor)
-(defvar default-cursor-type)
 (defvar cursor-type)
 ;; end pacifier
 
@@ -971,7 +970,7 @@
   (condition-case nil
       (if (featurep 'xemacs)
 	  (set (make-local-variable 'bar-cursor) nil)
-	(setq cursor-type default-cursor-type))
+	(setq cursor-type (default-value 'cursor-type)))
     (error nil)))
 
 (defun viper-set-insert-cursor-type ()