mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(ispell-highlight-spelling-error-overlay):

Browse Source 
Change overlay priority from 1 to 1001.  Reuse existing overlay.
This commit is contained in:
Juri Linkov 2005-12-09 09:47:30 +00:00
parent a46961def2
commit 9bb3de4b31
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/ispell.el
View File

@ -2307,11 +2307,13 @@ otherwise it is displayed normally.
The variable `ispell-highlight-face' selects the face to use for highlighting."
(if highlight
(progn
(if ispell-overlay
(move-overlay ispell-overlay start end (current-buffer))
(setq ispell-overlay (make-overlay start end))
(overlay-put ispell-overlay 'priority 1) ;higher than lazy overlays
(overlay-put ispell-overlay 'priority 1001) ;higher than lazy overlays
(overlay-put ispell-overlay 'face ispell-highlight-face))
(delete-overlay ispell-overlay))
(if ispell-overlay
(delete-overlay ispell-overlay)))
(if (and ispell-lazy-highlight (boundp 'lazy-highlight-cleanup))
(if highlight
(let ((isearch-string