For your .emacs (try out in scratch buffer):

(defun codequote (code)
  (interactive "sCode: ")
  (insert (concat "<code>" code "</code>")))
(local-set-key [f5] 'codequote)

He, found a nice bug of code tag during this: Code should not contain the sequence "</code>". Anybody know how to escape this (no, HTML entities don't work)?

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com