 	(urweb-skip-siblings))
       fullname)))
 
+
+
 (provide 'urweb-mode)
 
 ;;; urweb-mode.el ends here

  :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

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

;; The font lock regular expressions.

(defun inXml (depth)
  (and
   (re-search-backward "[<>{}]" nil t)
   (cond
    ((looking-at "{")
     (and (> depth 0)
          (inXml (- depth 1))))
    ((looking-at "}")
     (inXml (+ depth 1)))
    ((save-excursion (backward-char 1) (or (looking-at "=>") (looking-at "->")))
     (inXml depth))
    ((looking-at "<")
     nil)
    ((looking-at ">")
     (if (> depth 0)
         (and (re-search-backward "<" nil t)
              (inXml depth))
       (progn (backward-char 5) (not (looking-at "/html"))))))))

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