diff options
| author | Richard M. Stallman | 2003-12-29 20:03:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-12-29 20:03:46 +0000 |
| commit | a3ae17d490db9c7a64f5f031e0dd1f838ea46c17 (patch) | |
| tree | 49a62db611e0257dc9e7c177896297c5fda34fe9 | |
| parent | 3e86c60b95adb1485c09ed32a3decf89ebfbf871 (diff) | |
| download | emacs-a3ae17d490db9c7a64f5f031e0dd1f838ea46c17.tar.gz emacs-a3ae17d490db9c7a64f5f031e0dd1f838ea46c17.zip | |
(sh-get-indent-info):
Don't move point back if at bob.
| -rw-r--r-- | lisp/progmodes/sh-script.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 | |||
| 2052 | (progn | 2052 | (progn |
| 2053 | (setq result (append result val)) | 2053 | (setq result (append result val)) |
| 2054 | (setq align-point (point)))) | 2054 | (setq align-point (point)))) |
| 2055 | (forward-char -1) | 2055 | (or (bobp) |
| 2056 | (forward-char -1)) | ||
| 2056 | (skip-chars-forward "[a-z0-9]*?") | 2057 | (skip-chars-forward "[a-z0-9]*?") |
| 2057 | ) | 2058 | ) |
| 2058 | ((string-match "[])}]" x) | 2059 | ((string-match "[])}]" x) |