Copy or kill HTML element at point in Emacs

sgml-copy-or-kill-element.el

    (defun sgml-copy-or-kill-element (arg)
      (interactive "P")
      (let ((cut-tag (lambda ()
                       (let ((beg (point))
                             (end (save-excursion (sgml-skip-tag-forward 1)
                                                  (point))))
                         (kill-ring-save beg end)
                         (when arg
                           (delete-region beg end))))))
        (save-excursion (if (sgml-beginning-of-tag)
                            (funcall cut-tag)
                          (if (progn (forward-char) (sgml-beginning-of-tag))
                              (funcall cut-tag)
                            (message "Not in an HTML tag."))))
        ))

  (defun sgml-kill-element () 
    (interactive)
    (let ((current-prefix-arg 4))
      (call-interactively 'sgml-copy-or-kill-element))
    )

  (define-key html-mode-map (kbd "C-c C-w") 'sgml-copy-or-kill-element)
  (define-key html-mode-map (kbd "C-c C-k") 'sgml-kill-element)