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

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

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