   :type 'integer
   :group 'haml)
 
+(defcustom haml-backspace-function 'backward-delete-char-untabify
+  "*Function called by `haml-electric-backspace' when deleting backwards."
+  :type 'function
+  :group 'haml)
+
 ;; Helper Functions
 
 (defun string-* (str i)

      (if (< (current-column) (current-indentation))
          (forward-to-indentation 0))))

(defun haml-mode-version ()
  "Diplay version of `haml-mode'."
  (interactive)

(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]*\\)?$")
