From: Michael Kifer <kifer@cs.stonybrook.edu>
Date: Mon, 25 Dec 2000 08:02:26 +0000 (+0000)
Subject: 2000-12-25  Michael Kifer  <kifer@cs.sunysb.edu>
X-Git-Tag: emacs-pretest-21.0.95~286
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bea3997a05a027bcd8a066edd6044d1c9336a4ed;p=emacs.git

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 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