From bea3997a05a027bcd8a066edd6044d1c9336a4ed Mon Sep 17 00:00:00 2001 From: Michael Kifer Date: Mon, 25 Dec 2000 08:02:26 +0000 Subject: [PATCH] 2000-12-25 Michael Kifer * viper-init (viper-restore-cursor-type): added condition-case guard. --- lisp/emulation/viper-init.el | 8 +++++--- 1 file 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 -- 2.39.2