[nongnu] elpa/racket-mode 68c03cd8ce 1/2: racket--get-text-property/bounds: Add bounds check; fixes #731

[ELPA Syncer]

branch: elpa/racket-mode
commit 68c03cd8ce566b8f3cb0c95f1397d37b4f5afadd
Author: Greg Hendershott <git@greghendershott.com>
Commit: Greg Hendershott <git@greghendershott.com>

    racket--get-text-property/bounds: Add bounds check; fixes #731
---
 racket-xp.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket-xp.el b/racket-xp.el
index c72b4a7a9a..92e0a4dc51 100644
--- 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)