Mercurial > emacs

changeset 36569:df30cce5ee20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(flyspell-region): Set up flyspell-local-mouse-map.
author Dave Love <fx@gnu.org>
date Tue, 06 Mar 2001 10:57:09 +0000
parents c96255f28875
children 4dc9c2de9141
files lisp/textmodes/flyspell.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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