Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
34860:fdb5d08ced13 34861:4b66ba04d2e0
968 "Hooks run just after loading Viper." 968 "Hooks run just after loading Viper."
969 :type 'hook 969 :type 'hook
970 :group 'viper-hooks) 970 :group 'viper-hooks)
971 971
972 (defun viper-restore-cursor-type () 972 (defun viper-restore-cursor-type ()
973 (if viper-xemacs-p 973 (condition-case nil
974 (setq bar-cursor nil) 974 (if viper-xemacs-p
975 (setq cursor-type default-cursor-type))) 975 (setq bar-cursor nil)
976 (setq cursor-type default-cursor-type))
977 (error)))
976 978
977 (defun viper-set-insert-cursor-type () 979 (defun viper-set-insert-cursor-type ()
978 (if viper-xemacs-p 980 (if viper-xemacs-p
979 (setq bar-cursor 2) 981 (setq bar-cursor 2)
980 (setq cursor-type '(bar . 2)))) 982 (setq cursor-type '(bar . 2))))