mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Pavel Janík 2002-05-08 15:27:26 +00:00
parent 2ad631282d
commit 58c6812940
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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>

5
lisp/textmodes/flyspell.el
View File

@ -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