 	     ;; faces specified by text properties.
 	     (setq all-faces (nconc all-faces list)))
 	   all-faces))))
--
+ 
 ;; htmlize supports generating HTML in two several fundamentally
 ;; different ways, one with the use of CSS and nested <span> tags, and
 ;; the other with the use of the old <font> tags.  Rather than adding

  (while (search-forward "Local Variables:" nil t)
    (replace-match "Local Variables&#58;" nil t)))
  

;;; Color handling.

(if (fboundp 'locate-file)

    (princ text buffer)
    (when style
      (princ "</span>" buffer))))
 
;;; `font' tag based output support.

(defun htmlize-font-body-tag (face-map)
