   (save-excursion
     (while t
       (beginning-of-line)
-      (if (looking-at (eval-when-compile (concat haml-tag-beg-re "\\([{(]\\)")))
+      (if (looking-at (concat haml-tag-beg-re "\\([{(]\\)"))
           (progn
             (goto-char (- (match-end 0) 1))
             (haml-limited-forward-sexp (save-excursion (end-of-line) (point)))

          ;; Move through multiline attrs
          (when (eq (char-before) ?,)
            (save-excursion
              (while (progn (end-of-line) (eq (char-before) ?,) (not (eobp)))
                (forward-line))

              (forward-line -1)


(eval-when-compile (require 'cl))
(require 'ruby-mode)

;; Additional (optional) libraries for fontification
(require 'css-mode nil nil)
(require 'textile-mode nil nil)
(require 'markdown-mode nil nil)
(require 'javascript-mode "javascript" nil)


;; User definable variables

