racket--get-text-property/bounds: Add bounds check; fixes greghenders…

…hott#731
manphiz · Dec 6, 2024 · 68c03cd · 68c03cd
1 parent 22dc95c
commit 68c03cd
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/racket-xp.el b/racket-xp.el
@@ -685,7 +685,8 @@ racket-xp-doc and help-echo text properties added by
 (defun racket--get-text-property/bounds (pos prop)
   "Like `get-text-property' but also returning the bounds."
   (when-let (val (get-text-property pos prop))
-    (let* ((beg (if (not (get-text-property (1- pos) prop))
+    (let* ((beg (if (or (= 1 pos)
+                        (not (get-text-property (1- pos) prop)))
                     pos
                   (previous-single-property-change pos prop)))
            (end (or (next-single-property-change beg prop)