From: Michael Kifer Date: Wed, 9 Jan 2002 17:33:15 +0000 (+0000) Subject: 2002-01-09 Michael Kifer X-Git-Tag: ttn-vms-21-2-B4~17237 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b93e5ce229008d4a06302f05d0e1e958a29a1a5e;p=emacs.git 2002-01-09 Michael Kifer * viper.el (viper-set-hooks): zap viper-unfriendly bindings in flyspell-mouse-map. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 01dd7bff8c9..e3124396d94 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-01-09 Michael Kifer + + * viper.el (viper-set-hooks): zap viper-unfriendly bindings in + flyspell-mouse-map. + 2002-01-08 Richard M. Stallman * emacs-lisp/regexp-opt.el (regexp-opt): Bind max-specpdl-size. diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el index 7e1f47d3728..65c426da535 100644 --- a/lisp/emulation/viper.el +++ b/lisp/emulation/viper.el @@ -828,6 +828,13 @@ remains buffer-local." (defvar emerge-startup-hook) (add-hook 'emerge-startup-hook 'viper-change-state-to-emacs) + ;; Zap bad bindings in flyspell-mouse-map, which prevent ESC from working + ;; over misspelled words (due to the overlay keymaps) + (defvar flyspell-mode-hook) + (add-hook 'flyspell-mode-hook + '(lambda () + (define-key flyspell-mouse-map viper-ESC-key nil))) + ;; Tell vc-diff to put *vc* in Vi mode (if (featurep 'vc) (defadvice vc-diff (after viper-vc-ad activate)