From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 29 Dec 2003 20:03:46 +0000 (+0000)
Subject: (sh-get-indent-info):
X-Git-Tag: ttn-vms-21-2-B4~8070
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3ae17d490db9c7a64f5f031e0dd1f838ea46c17;p=emacs.git

(sh-get-indent-info):
Don't move point back if at bob.
---

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index e63dda1c663..a23dc0a307e 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -2052,7 +2052,8 @@ STRING	     This is ignored for the purposes of calculating
 		    (progn
 		      (setq result (append result val))
 		      (setq align-point (point))))
-		(forward-char -1)
+		(or (bobp)
+		    (forward-char -1))
 		(skip-chars-forward "[a-z0-9]*?")
 		)
 	       ((string-match "[])}]" x)