Mercurial > hg > xemacs-beta

comparison lisp/modes/sh-script.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 441bb1e64a06
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
924 "Indent as far as preceding non-empty line, then by steps of `sh-indentation'. 924 "Indent as far as preceding non-empty line, then by steps of `sh-indentation'.
925 Lines containing only comments are considered empty." 925 Lines containing only comments are considered empty."
926 (interactive) 926 (interactive)
927 (let ((previous (save-excursion 927 (let ((previous (save-excursion
928 (while (and (not (bobp)) 928 (while (and (not (bobp))
929 (not (eq (point-min) (point-at-bol)))
929 (progn 930 (progn
930 (forward-line -1) 931 (forward-line -1)
931 (back-to-indentation) 932 (back-to-indentation)
932 (or (eolp) 933 (or (eolp)
933 (eq (following-char) ?#))))) 934 (eq (following-char) ?#)))))