Mercurial > emacs

diff lisp/emulation/cua-base.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 bd2966850aac
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Fri Aug 28 04:21:14 2009 +0000
+++ b/lisp/emulation/cua-base.el	Fri Aug 28 04:24:59 2009 +0000
@@ -1196,8 +1196,8 @@
 	(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