# HG changeset patch
# User Michael Kifer <kifer@cs.stonybrook.edu>
# Date 977731346 0
# Node ID 4b66ba04d2e0f63fbf9499ff0a03303776ccfc3c
# Parent  fdb5d08ced13222c2b37257397b4dcfc36b48e21
2000-12-25  Michael Kifer  <kifer@cs.sunysb.edu>
	* viper-init (viper-restore-cursor-type): added condition-case
	guard.

diff -r fdb5d08ced13 -r 4b66ba04d2e0 lisp/emulation/viper-init.el
--- a/lisp/emulation/viper-init.el	Mon Dec 25 07:57:37 2000 +0000
+++ b/lisp/emulation/viper-init.el	Mon Dec 25 08:02:26 2000 +0000
@@ -970,9 +970,11 @@
   :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