(defun hatena (beg end) (interactive "r") (save-excursion (goto-char end) (insert "|python|<\n") (goto-char beg) (insert ">||\n")))