Mercurial > hg > xemacs-beta

comparison lisp/modes/sh-script.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents cca96a509cfe
children 25f70ba0133c
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
1000 "Indent as far as preceding non-empty line, then by steps of `sh-indentation'. 1000 "Indent as far as preceding non-empty line, then by steps of `sh-indentation'.
1001 Lines containing only comments are considered empty." 1001 Lines containing only comments are considered empty."
1002 (interactive) 1002 (interactive)
1003 (let ((previous (save-excursion 1003 (let ((previous (save-excursion
1004 (while (and (not (bobp)) 1004 (while (and (not (bobp))
1005 (not (eq (point-min) (point-at-bol)))
1005 (progn 1006 (progn
1006 (forward-line -1) 1007 (forward-line -1)
1007 (back-to-indentation) 1008 (back-to-indentation)
1008 (or (eolp) 1009 (or (eolp)
1009 (eq (following-char) ?#))))) 1010 (eq (following-char) ?#)))))