From: Gregory Heytings <gregory@heytings.org>
Date: Tue, 25 May 2021 04:18:29 +0000 (+0200)
Subject: Fix infloop in Modula-2 mode
X-Git-Tag: emacs-28.0.90~2347
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b48e2d258cb3c0ad5d12c5b4aaf9b4b69101763;p=emacs.git

Fix infloop in Modula-2 mode

* lisp/progmodes/modula2.el (m2-smie-refine-colon): Stop looping
when point does not move with forward-sexp (Bug#48011).
---

diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index 2a0374aa818..a8d644dba0e 100644
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -201,7 +201,10 @@
          ((zerop (length tok))
           (let ((forward-sexp-function nil))
             (condition-case nil
-                (forward-sexp -1)
+                (let ((p (point)))
+                  (forward-sexp -1)
+                  (when (= p (point))
+                    (setq res ":")))
               (scan-error (setq res ":")))))
          ((member tok '("|" "OF" "..")) (setq res ":-case"))
          ((member tok '(":" "END" ";" "BEGIN" "VAR" "RECORD" "PROCEDURE"))