(flyspell-region): Set up

flyspell-local-mouse-map.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4453e74cf2e08ad57cecf1044178da35b12480b8..507c193782c4b2b2ca805a1e020071b354ccbbda 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-06  Dave Love  <fx@gnu.org>
+
+       * textmodes/flyspell.el (flyspell-region): Set up
+       flyspell-local-mouse-map.
+
 2001-03-05  Richard M. Stallman  <rms@gnu.org>
 
        * mail/rmail.el (rmail-retry-failure): 

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 707315a0232afa8e8625407913b0b46b27947973..a7ea86d8fa16350a32f66031d9179ed495baccee 100644 (file)
--- 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