changeset 34861:4b66ba04d2e0

2000-12-25 Michael Kifer <kifer@cs.sunysb.edu> * viper-init (viper-restore-cursor-type): added condition-case guard.
author Michael Kifer <kifer@cs.stonybrook.edu>
date Mon, 25 Dec 2000 08:02:26 +0000
parents fdb5d08ced13
children 354397dfb570
files lisp/emulation/viper-init.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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