 (if haml-mode-map
     nil
   (setq haml-mode-map (make-sparse-keymap))
+  (define-key haml-mode-map [backspace] 'haml-electric-backspace)
+  (define-key haml-mode-map "\C-?" 'haml-electric-backspace)
+  (define-key haml-mode-map "\C-a" 'haml-electric-backspace)
   (define-key haml-mode-map "\C-j" 'newline-and-indent))
 
 ;(defvar haml-mode-syntax-table nil

  :type 'integer
  :group 'haml)

;; Helper Functions

(defun string-* (str i)

(defconst haml-blank-line-re "^[ \t]*$"
  "Regexp matching a line containing only whitespace.")

(defconst haml-tag-re (hre "[%\\.#][^ \t]*\\({.*}\\)?\\(\\[.*\\]\\)?.?[ \t]*$")
  "Regexp matching a Haml tag.")

(defconst haml-block-re (hre "[-=].*do[ \t]*\\(|.*|[ \t]*\\)?$")
