From 9d1691c9dce0dd497f675a465b1d1ef6a70568c1 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Thu, 14 Jun 2007 13:47:58 +0000
Subject: Bugfixes

git-svn-id: file:///svnroot/mailfromd/trunk@1493 7a8a7f39-df28-0410-adc6-e0d955640f24
---
 elisp/mfl-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'elisp')

diff --git a/elisp/mfl-mode.el b/elisp/mfl-mode.el
index b9f5af43..ddf44dcc 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)
-- 
cgit v1.2.1