Add debug info

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)))))