Mercurial > emacs

diff lisp/emulation/viper-init.el @ 34861:4b66ba04d2e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 f6a67d77484a
children e26b0d79408b
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