diff options
| author | Michael Kifer <kifer@cs.stonybrook.edu> | 2000-12-25 08:02:26 +0000 |
|---|---|---|
| committer | Michael Kifer <kifer@cs.stonybrook.edu> | 2000-12-25 08:02:26 +0000 |
| commit | bea3997a05a027bcd8a066edd6044d1c9336a4ed (patch) | |
| tree | 34d0d5b1d7eace26440e15bf275f7c9a3e8749eb /lisp/emulation/viper-init.el | |
| parent | 7261ece3c08f89db35cd3f486b02fb71249df240 (diff) | |
| download | emacs-bea3997a05a027bcd8a066edd6044d1c9336a4ed.tar.gz | |
2000-12-25 Michael Kifer <kifer@cs.sunysb.edu>
* viper-init (viper-restore-cursor-type): added condition-case
guard.
Diffstat (limited to 'lisp/emulation/viper-init.el')
| -rw-r--r-- | lisp/emulation/viper-init.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index d03632004c8..da020f7ffd4 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el @@ -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 |