From b93e5ce229008d4a06302f05d0e1e958a29a1a5e Mon Sep 17 00:00:00 2001 From: Michael Kifer Date: Wed, 9 Jan 2002 17:33:15 +0000 Subject: [PATCH] 2002-01-09 Michael Kifer * viper.el (viper-set-hooks): zap viper-unfriendly bindings in flyspell-mouse-map. --- lisp/ChangeLog | 5 +++++ lisp/emulation/viper.el | 7 +++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 01dd7bff8c..e3124396d9 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 7e1f47d372..65c426da53 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) -- 2.20.1