[Remove src tag from custom muse config
clinton@unknownlamer.org**20071115134201
 This was merged upstream
] {
hunk ./init.d/muse.el 43
-(defun cke-muse-tag-last-modified ()
-  "Returns timestamp of last update to file associated with buffer"
-  nil)
-
hunk ./init.d/muse.el 79
-;;; src tag (ripped from trunk muse; remove when other bugs are fixed)
-(add-to-list 'muse-html-markup-tags
-	     '("src"   t t nil muse-html-src-tag))
-
-(defun muse-html-src-tag (beg end attrs)
-  "Publish the region using htmlize.
-The language to use may be specified by the \"lang\" attribute.
-
-Muse will look for a function named LANG-mode, where LANG is the
-value of the \"lang\" attribute.
-
-This tag requires htmlize 1.34 or later in order to work."
-  (if (condition-case nil
-          (progn
-            (require 'htmlize)
-            (if (fboundp 'htmlize-region-for-paste)
-                nil
-              (muse-display-warning
-               (concat "The `htmlize-region-for-paste' function was not"
-                       " found.\nThis is available in htmlize.el 1.34"
-                       " or later."))
-              t))
-        (error nil t))
-      ;; if htmlize.el was not found, treat this like an example tag
-      (muse-publish-example-tag beg end)
-    (let* ((mode (and (assoc "lang" attrs)
-                      (intern (concat (cdr (assoc "lang" attrs))
-                                      "-mode"))))
-           (text (delete-and-extract-region beg end))
-           (htmltext
-            (with-temp-buffer
-              (insert text)
-              (if (functionp mode)
-                  (funcall mode)
-                (fundamental-mode))
-              (font-lock-fontify-buffer)
-              ;; silence the byte-compiler
-              (when (fboundp 'htmlize-region-for-paste)
-                ;; transform the region to HTML
-                (htmlize-region-for-paste (point-min) (point-max))))))
-      (save-restriction
-        (narrow-to-region (point) (point))
-        (insert htmltext)
-        (goto-char (point-min))
-        (re-search-forward "<pre\\([^>]*\\)>\n?" nil t)
-        (replace-match "<pre class=\"src\">")
-        (goto-char (point-max))
-        (muse-publish-mark-read-only (point-min) (point-max))))))
-
}