# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 983876229 0
# Node ID df30cce5ee200c064eb6d5d06fe89569e1b9d433
# Parent  c96255f288753dfb5c473a3ee5ce6327e95719f2
(flyspell-region): Set up
flyspell-local-mouse-map.

diff -r c96255f28875 -r df30cce5ee20 lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Tue Mar 06 03:19:14 2001 +0000
+++ b/lisp/textmodes/flyspell.el	Tue Mar 06 10:57:09 2001 +0000
@@ -1357,6 +1357,13 @@
 (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