procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

2000-12-25 Michael Kifer <kifer@cs.sunysb.edu>

Browse source 
* viper-init (viper-restore-cursor-type): added condition-case
	guard.
This commit is contained in:
Michael Kifer 2000-12-25 08:02:26 +00:00
parent 7261ece3c0
commit bea3997a05
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emulation/viper-init.el
View file

@ -970,9 +970,11 @@ Should be set in `~/.viper' file."
:group 'viper-hooks)
(defun viper-restore-cursor-type ()
(if viper-xemacs-p
(setq bar-cursor nil)
(setq cursor-type default-cursor-type)))
(condition-case nil
(if viper-xemacs-p
(setq bar-cursor nil)
(setq cursor-type default-cursor-type))
(error)))
(defun viper-set-insert-cursor-type ()
(if viper-xemacs-p