# HG changeset patch # User Richard M. Stallman # Date 1072728226 0 # Node ID 7864e9172d4e75f4c577f393149261d40769dcae # Parent af00346728ddb3800a1ed70bfe8ffb5f80d621fe (sh-get-indent-info): Don't move point back if at bob. diff -r af00346728dd -r 7864e9172d4e lisp/progmodes/sh-script.el --- a/lisp/progmodes/sh-script.el Mon Dec 29 20:03:05 2003 +0000 +++ b/lisp/progmodes/sh-script.el Mon Dec 29 20:03:46 2003 +0000 @@ -2052,7 +2052,8 @@ (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)