Commit 009fdc2e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* emulation/viper-init.el (viper-restore-cursor-type):

* emulation/cua-base.el (cua--update-indications):
Replace default-cursor-type with (default-value 'cursor-type).
parent b56a5ae0
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):
......
......@@ -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
......
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment