[O] [RFC, mini] org-mark-element-parent

[Marco Wahl]

Hi Orgers,

is the following function worthy to occupy space in Orgmode?

#v+
(defun org-mark-element-parent ()
  "Put point at beginning of the parent element, mark at end."
  (interactive)
  (let ((parent (org-element-property :parent (org-element-at-point))))
    (when parent
      (push-mark (org-element-property :end parent) t t)
      (goto-char (org-element-property :begin parent)))))
#v-

Can be used to e.g.
- mark a table or
- a plain list


Best regards
            Marco