 ;; Still under construction: History obscure, needs a biographer as
 ;; well as a M-x doctor. Change Log on request.
 
-;; Hacked by Olin Shivers for comint from Lars Bo Nielsen's urweb.el.
+;; Hacked by Olin Shivers for comint from Lars Bo Nielsen's sml.el.
 
 ;; Hacked by Matthew Morley to incorporate Fritz Knabe's hilite and
 ;; font-lock patterns, some of Steven Gilmore's (reduced) easy-menus,

  :group 'font-lock-highlighting-faces)
(defvar font-lock-tag-face 'font-lock-tag-face
  "Face name to use for XML tags.")

;;
;; Code to handle nested comments and unusual string escape sequences

;;;###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)
