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

	* viper-init (viper-restore-cursor-type): added condition-case
	guard.

diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index d03632004c89b9691c2e48a8caac3792cbe0b305..da020f7ffd488c34a03e4fe01b9bd1d638fd3845 100644 (file)
--- 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