0
@@ -54,8 +54,9 @@
0
 (defvar haml-block-openers
0
   `("^ *\\([%\\.#][^ \t]*\\)\\(\\[.*\\]\\)?\\({.*}\\)?\\(\\[.*\\]\\)?[ \t]*$"
0
     "^ *[-=].*do[ \t]*\\(|.*|[ \t]*\\)?$"
0
-    ,(concat "^ *-[ \t]*"
0
-             (regexp-opt '("else" "elsif" "rescue" "ensure" "when")))
0
+    ,(concat "^ *-[ \t]*\\("
0
+             (regexp-opt '("else" "elsif" "rescue" "ensure" "when"))
0
+             "\\)")
0
     "^ */\\(\\[.*\\]\\)?[ \t]*$"
0
     "^ *-#"
0
     "^ *:")
0
@@ -219,7 +220,7 @@
0
   "Returns true if the current line can have lines nested beneath it."
0
   (loop for opener in haml-block-openers
0
         if (looking-at opener) return t
0
-         return nil))
0
+        finally return nil))
0
 
0
 (defun haml-compute-indentation ()
0
   "Calculate the maximum sensible indentation for the current line."