]> git.eshelyaron.com Git - emacs.git/commitdiff
(ispell-highlight-spelling-error-overlay):
authorJuri Linkov <juri@jurta.org>
Fri, 9 Dec 2005 09:47:30 +0000 (09:47 +0000)
committerJuri Linkov <juri@jurta.org>
Fri, 9 Dec 2005 09:47:30 +0000 (09:47 +0000)
Change overlay priority from 1 to 1001.  Reuse existing overlay.

lisp/textmodes/ispell.el

index 99bcc621765bb8a420d8eed56abc89f18b59db8f..9e81c22485595137091f7d347acf9188e7c57791 100644 (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