From: Daniel Colascione <dancol@dancol.org>
Date: Mon, 30 Dec 2013 23:16:34 +0000 (-0800)
Subject: Fix infloop in indentation code
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e63ace374ce30dbc4660edc696596d116ce9f3f2;p=emacs.git

Fix infloop in indentation code
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 910d35afc4b..30634f79b14 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-12-30  Daniel Colascione  <dancol@dancol.org>
+
+	* progmodes/sh-script.el
+	(sh-smie-sh-forward-token,sh-smie-rc-forward-token): Fix infloop
+	in indentation code.  (Bug#16233)
+
 2013-12-28  João Távora  <joaotavora@gmail.com>
 
 	* elec-pair.el (electric-pair-post-self-insert-function): Don't
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 5f2f70cf32a..5475cccabf7 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -1844,7 +1844,7 @@ Does not preserve point."
             ";")
         (let ((semi (sh-smie--newline-semi-p)))
           (forward-line 1)
-          (if semi ";"
+          (if (or semi (eobp)) ";"
             (sh-smie-sh-forward-token))))
     (forward-comment (point-max))
     (cond
@@ -2070,7 +2070,7 @@ Point should be before the newline."
             ";")
         (let ((semi (sh-smie--rc-newline-semi-p)))
           (forward-line 1)
-          (if semi ";"
+          (if (or semi (eobp)) ";"
             (sh-smie-rc-forward-token))))
     (forward-comment (point-max))
     (cond