(make-flyspell-overlay): Add help text to flyspell overlays.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8540e3e670d1477567b788419b89b81c3499a9a1..35ffcf5e01a92c67be67377842d90e54d65c0ad4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-05-08  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
+       * textmodes/flyspell.el (make-flyspell-overlay): Add help text
+       to flyspell overlays.
+
        * info.el (Info-mode-map): Bind `c' to Info-copy-current-node-name.
 
 2002-05-08  Richard M. Stallman  <rms@gnu.org>

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index d481c2799a439f08f27786ece654ae997aeda006..9d553a688456a05a0acb68de50e2c873f8251db6 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -550,9 +550,9 @@ in your .emacs file.
   ;; otherwise it could be too late, the local dictionary may
   ;; be forgotten!
   (flyspell-accept-buffer-local-defs)
-  ;; we put the `flyspel-delayed' property on some commands
+  ;; we put the `flyspell-delayed' property on some commands
   (flyspell-delay-commands)
-  ;; we put the `flyspel-deplacement' property on some commands
+  ;; we put the `flyspell-deplacement' property on some commands
   (flyspell-deplacement-commands)
   ;; we bound flyspell action to post-command hook
   (add-hook 'post-command-hook (function flyspell-post-command-hook) t t)
@@ -1495,6 +1495,7 @@ for the overlay."
     (overlay-put flyspell-overlay 'mouse-face mouse-face)
     (overlay-put flyspell-overlay 'flyspell-overlay t)
     (overlay-put flyspell-overlay 'evaporate t)
+    (overlay-put flyspell-overlay 'help-echo "mouse-2: correct word at point")
     (if flyspell-use-local-map
         (overlay-put flyspell-overlay
                      flyspell-overlay-keymap-property-name