From 9bb3de4b314713ae5e64e137ddb9d8310e71b2f6 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 9 Dec 2005 09:47:30 +0000 Subject: [PATCH] (ispell-highlight-spelling-error-overlay): Change overlay priority from 1 to 1001. Reuse existing overlay. --- lisp/textmodes/ispell.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 99bcc621765..9e81c224855 100644 --- 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 -- 2.39.2