Mercurial > emacs
changeset 42634:867207acffeb
2002-01-09 Michael Kifer <kifer@cs.stonybrook.edu>
* viper.el (viper-set-hooks): zap viper-unfriendly bindings in
flyspell-mouse-map.
| author | Michael Kifer <kifer@cs.stonybrook.edu> |
|---|---|
| date | Wed, 09 Jan 2002 17:33:15 +0000 |
| parents | c0f9dbfc8232 |
| children | 93dbb55ef08a |
| files | lisp/ChangeLog lisp/emulation/viper.el |
| diffstat | 2 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jan 09 16:25:26 2002 +0000 +++ b/lisp/ChangeLog Wed Jan 09 17:33:15 2002 +0000 @@ -1,3 +1,8 @@ +2002-01-09 Michael Kifer <kifer@cs.stonybrook.edu> + + * viper.el (viper-set-hooks): zap viper-unfriendly bindings in + flyspell-mouse-map. + 2002-01-08 Richard M. Stallman <rms@gnu.org> * emacs-lisp/regexp-opt.el (regexp-opt): Bind max-specpdl-size.
--- a/lisp/emulation/viper.el Wed Jan 09 16:25:26 2002 +0000 +++ b/lisp/emulation/viper.el Wed Jan 09 17:33:15 2002 +0000 @@ -828,6 +828,13 @@ (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)