Function: allout-ascend-to-depth

allout-ascend-to-depth is a byte-compiled function defined in allout.el.gz.

Signature

(allout-ascend-to-depth DEPTH)

Documentation

Ascend to depth DEPTH, returning depth if successful, nil if not.

Source Code

;; Defined in /usr/src/emacs/lisp/allout.el.gz
;;;_  - Depth-wise
;;;_   > allout-ascend-to-depth (depth)
(defun allout-ascend-to-depth (depth)
  "Ascend to depth DEPTH, returning depth if successful, nil if not."
  (if (and (> depth 0)(<= depth (allout-depth)))
      (let (last-ascended)
        (while (and (< depth allout-recent-depth)
                    (setq last-ascended (allout-ascend))))
        (goto-char allout-recent-prefix-beginning)
        (if (allout-called-interactively-p) (allout-end-of-prefix))
        (and last-ascended allout-recent-depth))))