# HG changeset patch # User Stefan Monnier # Date 1251433499 0 # Node ID dd47ce8e136c6a2892f9f586041c638309f927ec # Parent 50fdf250e26b15bd93739400f15e2c62f29da9d0 * 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 -r 50fdf250e26b -r dd47ce8e136c lisp/ChangeLog --- a/lisp/ChangeLog Fri Aug 28 04:21:14 2009 +0000 +++ b/lisp/ChangeLog Fri Aug 28 04:24:59 2009 +0000 @@ -1,5 +1,9 @@ 2009-08-28 Stefan Monnier + * 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 -r 50fdf250e26b -r dd47ce8e136c lisp/emulation/cua-base.el --- 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 diff -r 50fdf250e26b -r dd47ce8e136c lisp/emulation/viper-init.el --- 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 ()