From 58c68129403a20adb8e48a6601d21ecbca3ce285 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Wed, 8 May 2002 15:27:26 +0000 Subject: [PATCH] (make-flyspell-overlay): Add help text to flyspell overlays. --- lisp/ChangeLog | 3 +++ lisp/textmodes/flyspell.el | 5 +++-- 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 + * 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 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 -- 2.39.5