summaryrefslogtreecommitdiffabout
path: root/elisp
authorSergey Poznyakoff <gray@gnu.org.ua>2007-06-14 13:47:58 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2007-06-14 13:47:58 (GMT)
commit9d1691c9dce0dd497f675a465b1d1ef6a70568c1 (patch) (side-by-side diff)
tree02d7bd6f78129c2d8c958f95b2a08212d2b35d2e /elisp
parent28eb64b5b86abeac2b3aa64ae7c3726a88ac09d1 (diff)
downloadmailfromd-9d1691c9dce0dd497f675a465b1d1ef6a70568c1.tar.gz
mailfromd-9d1691c9dce0dd497f675a465b1d1ef6a70568c1.tar.bz2
Bugfixes
git-svn-id: file:///svnroot/mailfromd/trunk@1493 7a8a7f39-df28-0410-adc6-e0d955640f24
Diffstat (limited to 'elisp') (more/less context) (ignore whitespace changes)
-rw-r--r--elisp/mfl-mode.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/mfl-mode.el b/elisp/mfl-mode.el
index b9f5af4..ddf44dc 100644
--- a/elisp/mfl-mode.el
+++ b/elisp/mfl-mode.el
@@ -159,9 +159,9 @@ if no matching line was found."
((looking-at regexp)
(throw 'found (current-indentation)))
((looking-at "\\<done\\>")
- (mfl-find-line-indent "\\<do\\>"))
+ (mfl-find-line-indentation "\\(\\<on\\>.*\\)?\\<do\\>"))
((looking-at "\\<fi\\>")
- (mfl-find-line-indent "\\<if\\>"))))
+ (mfl-find-line-indentation "\\<if\\>"))))
0))
(defun mfl-find-line-forward (regexp)

Return to:

Send suggestions and report system problems to the System administrator.