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

Change overlay priority from 1 to 1001. Reuse existing overlay.

(ispell-highlight-spelling-error-overlay):
Change overlay priority from 1 to 1001. Reuse existing overlay.
9bb3de4b · Juri Linkov · a46961de · 9bb3de4b
Commit 9bb3de4b authored Dec 09, 2005 by Juri Linkov
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

lisp/textmodes/ispell.el lisp/textmodes/ispell.el +5 -3

No files found.
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -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