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

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8540e3e670d..35ffcf5e01a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-05-08  Pavel Jan,Bm(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 d481c2799a4..9d553a68845 100644
--- 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