Merge pull request #25 from Fuco1/fix/point-jumping-after-narrow

fix: preserve point before widening and re-narrowing
fgeller · Feb 17, 2023 · ad788d7 · ad788d7
2 parents b9bb6e4 + 7c4bf1e
commit ad788d7
Showing 1 changed file with 10 additions and 9 deletions.
diff --git a/highlight-thing.el b/highlight-thing.el
@@ -225,15 +225,16 @@ functionality."
 
 (defun highlight-thing-buffer-do (buf regex)
   (with-current-buffer buf
-    (save-restriction
-      (widen)
-      (cond ((highlight-thing-should-narrow-to-defun-p)
-	     (narrow-to-defun))
-	    ((highlight-thing-should-narrow-to-region-p)
-	     (let ((bounds (highlight-thing-narrow-bounds)))
-	       (narrow-to-region (car bounds) (cdr bounds)))))
-      (highlight-thing-call-highlight-regexp regex)
-      (when highlight-thing-exclude-thing-under-point (highlight-thing-remove-overlays-at-point regex)))))
+    (save-excursion
+      (save-restriction
+        (widen)
+        (cond ((highlight-thing-should-narrow-to-defun-p)
+               (narrow-to-defun))
+              ((highlight-thing-should-narrow-to-region-p)
+               (let ((bounds (highlight-thing-narrow-bounds)))
+                 (narrow-to-region (car bounds) (cdr bounds)))))
+        (highlight-thing-call-highlight-regexp regex)
+        (when highlight-thing-exclude-thing-under-point (highlight-thing-remove-overlays-at-point regex))))))
 
 (defun highlight-thing-call-highlight-regexp (regex)
   (unless (string= "" regex)