Function: combobulate-mark-node-at-point

combobulate-mark-node-at-point is an interactive and natively compiled function defined in combobulate-manipulation.el.

Signature

(combobulate-mark-node-at-point &optional ARG BEGINNING-OF-LINE)

Documentation

Mark the most likely node on or near point ARG times.

The exact node that is marked will depend on the location of point relative to the nodes in combobulate-navigable-nodes.

Key Bindings

This command is not in any keymaps.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-manipulation.el
(defun combobulate-mark-node-at-point (&optional arg beginning-of-line)
  "Mark the most likely node on or near point ARG times.

The exact node that is marked will depend on the location of
point relative to the nodes in
`combobulate-navigable-nodes'."
  (interactive "^p")
  (with-argument-repetition arg
    ;; if the mark's ahead of point then we're at the beginning of the
    ;; region; if so, swap places.
    (when (and mark-active (> (point) (mark)))
      (exchange-point-and-mark))
    (when-let ((parent (car (seq-drop-while
                             #'combobulate-node-in-region-p
                             (combobulate-nav-get-parents (combobulate-node-at-point))))))
      (combobulate--mark-node parent nil beginning-of-line)
      (combobulate--flash-node parent)
      parent)))