Function: outline-mark-subtree

outline-mark-subtree is an interactive and byte-compiled function defined in outline.el.gz.

Signature

(outline-mark-subtree)

Documentation

Mark the current subtree in an outlined document.

This puts point at the start of the current subtree, and mark at the end.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/outline.el.gz
(defun outline-mark-subtree ()
  "Mark the current subtree in an outlined document.
This puts point at the start of the current subtree, and mark at the end."
  (interactive)
  (let ((beg))
    (if (outline-on-heading-p)
	;; we are already looking at a heading
	(beginning-of-line)
      ;; else go back to previous heading
      (outline-previous-visible-heading 1))
    (setq beg (point))
    (outline-end-of-subtree)
    (push-mark (point) nil t)
    (goto-char beg)))