diff --git a/highlight-parentheses.el b/highlight-parentheses.el index 0d602a0..3516211 100644 --- a/highlight-parentheses.el +++ b/highlight-parentheses.el @@ -104,6 +104,7 @@ This is used to prevent analyzing the same context over and over.") "Highlight the parentheses around point." (unless (= (point) hl-paren-last-point) (setq hl-paren-last-point (point)) + (message "updated-highlight") (let ((overlays hl-paren-overlays) pos1 pos2) (save-excursion @@ -115,6 +116,7 @@ This is used to prevent analyzing the same context over and over.") (forward-char 1)))) (while (and (setq pos1 (cadr (syntax-ppss pos1))) (cdr overlays)) + (message (format "%d" pos1)) (move-overlay (pop overlays) pos1 (1+ pos1)) (when (setq pos2 (scan-sexps pos1 1)) (move-overlay (pop overlays) (1- pos2) pos2)))))