diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2007-06-14 13:47:58 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2007-06-14 13:47:58 +0000 |
commit | 9d1691c9dce0dd497f675a465b1d1ef6a70568c1 (patch) | |
tree | 02d7bd6f78129c2d8c958f95b2a08212d2b35d2e | |
parent | 28eb64b5b86abeac2b3aa64ae7c3726a88ac09d1 (diff) | |
download | mailfromd-9d1691c9dce0dd497f675a465b1d1ef6a70568c1.tar.gz mailfromd-9d1691c9dce0dd497f675a465b1d1ef6a70568c1.tar.bz2 |
Bugfixes
git-svn-id: file:///svnroot/mailfromd/trunk@1493 7a8a7f39-df28-0410-adc6-e0d955640f24
-rw-r--r-- | elisp/mfl-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." | |||
159 | ((looking-at regexp) | 159 | ((looking-at regexp) |
160 | (throw 'found (current-indentation))) | 160 | (throw 'found (current-indentation))) |
161 | ((looking-at "\\<done\\>") | 161 | ((looking-at "\\<done\\>") |
162 | (mfl-find-line-indent "\\<do\\>")) | 162 | (mfl-find-line-indentation "\\(\\<on\\>.*\\)?\\<do\\>")) |
163 | ((looking-at "\\<fi\\>") | 163 | ((looking-at "\\<fi\\>") |
164 | (mfl-find-line-indent "\\<if\\>")))) | 164 | (mfl-find-line-indentation "\\<if\\>")))) |
165 | 0)) | 165 | 0)) |
166 | 166 | ||
167 | (defun mfl-find-line-forward (regexp) | 167 | (defun mfl-find-line-forward (regexp) |