 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.s\\(ml\\|ig\\)\\'" . urweb-mode))
 
+;(mmm-add-classes
+; '((urweb-html
+;    :submode html-mode
+;    :front "<html>"
+;    :back "</html>")))
+
 ;;;###autoload
 (define-derived-mode urweb-mode fundamental-mode "Ur/Web"
   "\\<urweb-mode-map>Major mode for editing Ur/Web code.
 This mode runs `urweb-mode-hook' just before exiting.
 \\{urweb-mode-map}"
   (set (make-local-variable 'font-lock-defaults) urweb-font-lock-defaults)
+  (set (make-local-variable 'font-lock-multiline) 'undecided)
   (set (make-local-variable 'outline-regexp) urweb-outline-regexp)
   (set (make-local-variable 'imenu-create-index-function)
        'urweb-imenu-create-index)

;;; Font-lock settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; The font lock regular expressions.

(defconst urweb-font-lock-keywords
  `(;;(urweb-font-comments-and-strings)

     (1 font-lock-keyword-face)
     (2 font-lock-interface-def-face))

    ("\\(<\\sw+\\)\\(\\s-\\|\\sw\\|=\\|\"[^\"]*\"\\|{[^}]*}\\)*/?\\(>\\)"
     (1 font-lock-tag-face)
     (3 font-lock-tag-face))
    ("\\(</\\sw+>\\)"
     (1 font-lock-tag-face))
    ("\\([^<>{}]+\\)"
     (1 (if (save-excursion (inXml 0))
            font-lock-string-face
          nil)))
    
    (,urweb-keywords-regexp . font-lock-keyword-face)
    (,urweb-sql-keywords-regexp . font-lock-sql-face)
    (,urweb-cident-regexp . font-lock-cvariable-face))
  "Regexps matching standard Ur/Web keywords.")

