From e63ace374ce30dbc4660edc696596d116ce9f3f2 Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Mon, 30 Dec 2013 15:16:34 -0800 Subject: [PATCH] Fix infloop in indentation code --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/sh-script.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 + + * 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 * 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 -- 2.39.2