(defmacro cw-open/close-tag (command open-tag close-tag)
  `(defun ,command (beg end)
     (interactive "r")
     (let ((start-tag ,open-tag)
	   (end-tag ,close-tag))
       (save-excursion
	 (goto-char beg)
	 (insert start-tag)
	 (goto-char (+ end (length start-tag)))
	 (insert end-tag)))))

(cw-open/close-tag cw-enscript-scheme "<enscript highlight=scheme>\n" "</enscript>\n")
(cw-open/close-tag cw-enscript-elisp "<enscript highlight=elisp>\n" "</enscript>\n")
(cw-open/close-tag cw-enscript-c "<enscript highlight=c>\n" "</enscript>\n")
(cw-open/close-tag cw-procedure "<procedure>" "</procedure>")
(cw-open/close-tag cw-constant "<constant>" "</constant>")
(cw-open/close-tag cw-syntax "<syntax>" "</syntax>")