From fa84f42ab93126b5552ec2058740dd5b410aa885 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 6 Mar 2001 10:59:50 +0000 Subject: [PATCH] (flyspell-region): Set up flyspell-local-mouse-map. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/flyspell.el | 7 +++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4453e74cf2e..507c193782c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-03-06 Dave Love + + * textmodes/flyspell.el (flyspell-region): Set up + flyspell-local-mouse-map. + 2001-03-05 Richard M. Stallman * mail/rmail.el (rmail-retry-failure): diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 707315a0232..a7ea86d8fa1 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1357,6 +1357,13 @@ Word syntax described by `ispell-dictionary-alist' (which see)." (defun flyspell-region (beg end) "Flyspell text between BEG and END." (interactive "r") + (unless (boundp 'flyspell-local-mouse-map) + (set (make-local-variable 'flyspell-local-mouse-map) + (let ((map (copy-keymap flyspell-mouse-map))) + (if (eq flyspell-emacs 'xemacs) + (set-keymap-parents (list (current-local-map))) + (set-keymap-parent map (current-local-map))) + map))) (if (= beg end) () (save-excursion -- 2.39.5