[killed unused muse code
clinton@unknownlamer.org**20061223183902] hunk ./init.d/muse.el 35
-;;; htmlized code examples
-
-;; TODO:
-;;  - Insert correct background color (manually wrap a span maybe)
-(defun cke-muse-publish-code-tag (beg end attrs)
-  (let ((htmlized-text
-	 (save-excursion
-	   (save-restriction
-	     (narrow-to-region beg end)
-	     (cond ((assoc "lang" attrs)
-		    (funcall (intern 
-			      (concat (cdr (assoc "lang" attrs)) "-mode")))
-		    (font-lock-fontify-buffer)))
-	     (htmlize-region-for-paste (point-min) (point-max))))))
-    (goto-char beg)
-    (delete-region beg end)
-    (insert htmlized-text)
-    (let ((new-end (point-marker)))
-      (goto-char beg)
-      (insert (muse-markup-text 'begin-literal))
-      (goto-char new-end)
-      (insert (muse-markup-text 'end-literal))
-      (muse-publish-mark-read-only beg (point)))))
-
-(add-to-list 'muse-html-markup-tags 
-	     (list "code" t t nil #'cke-muse-publish-code-tag))