From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 28 Aug 2009 04:24:59 +0000 (+0000)
Subject: * emulation/viper-init.el (viper-restore-cursor-type):
X-Git-Tag: emacs-pretest-23.1.90~1636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=009fdc2e72c00036815a06bd29c9dbf7add7a0c0;p=emacs.git

* emulation/viper-init.el (viper-restore-cursor-type):
* emulation/cua-base.el (cua--update-indications):
Replace default-cursor-type with (default-value 'cursor-type).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f69a3f287e3..ada67dc7147 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2009-08-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emulation/viper-init.el (viper-restore-cursor-type):
+	* emulation/cua-base.el (cua--update-indications):
+	Replace default-cursor-type with (default-value 'cursor-type).
+
 	* mail/sendmail.el (mail-recover-1):
 	* international/mule-diag.el (describe-current-coding-system-briefly)
 	(describe-current-coding-system):
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index d74738900e4..a99a3f76250 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1196,8 +1196,8 @@ If ARG is the atom `-', scroll upward by nearly full screen."
 	(set-cursor-color color))
     (if (and type
 	     (symbolp type)
-	     (not (eq type default-cursor-type)))
-	(setq default-cursor-type type))))
+	     (not (eq type (default-value 'cursor-type))))
+	(setq-default cursor-type type))))
 
 
 ;;; Pre-command hook
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index 901a73fcecf..0227842b450 100644
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -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 @@ Should be set in `~/.viper' file."
   (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 ()