Avoid infinite loop in slime-presentation-start/end

Fixes slime#814
corngood · Mar 2, 2024 · 7e91126 · 7e91126
1 parent eafb23c
commit 7e91126
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/contrib/slime-presentations.el b/contrib/slime-presentations.el
@@ -217,6 +217,8 @@ Return buffer index and whether a start-tag was found."
                          (buffer (with-current-buffer object 1))
                          (string 0))
                        nil)))
+        (when (= change-point point)
+          (error "Unable to find presentation start"))
         (setq this-presentation (get-text-property change-point
                                                    presentation object))
         (unless this-presentation
@@ -240,6 +242,8 @@ end-tag was found."
                          (buffer (with-current-buffer object (point-max)))
                          (string (length object)))
                        nil)))
+        (when (= change-point point)
+          (error "Unable to find presentation end"))
         (setq point change-point)
         (setq this-presentation (get-text-property point
                                                    presentation object))))