Mercurial > emacs

comparison lisp/progmodes/sh-script.el @ 53419:7864e9172d4e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-get-indent-info): Don't move point back if at bob.
author Richard M. Stallman <rms@gnu.org>
date Mon, 29 Dec 2003 20:03:46 +0000
parents aaeb60b0150f
children 43e09e943479
comparison
equal deleted inserted replaced
53418:af00346728dd 53419:7864e9172d4e
2050 (setq x 'case-label) 2050 (setq x 'case-label)
2051 (if (setq val (sh-check-rule 2 x)) 2051 (if (setq val (sh-check-rule 2 x))
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)
2059 (setq x (sh-safe-forward-sexp -1)) 2060 (setq x (sh-safe-forward-sexp -1))
2060 (if x 2061 (if x