Function: allout-get-body-text

allout-get-body-text is a byte-compiled function defined in allout.el.gz.

Signature

(allout-get-body-text)

Documentation

Return the unmangled body text of the topic immediately containing point.

Source Code

;; Defined in /usr/src/emacs/lisp/allout.el.gz
;;;_   > allout-get-body-text ()
(defun allout-get-body-text ()
  "Return the unmangled body text of the topic immediately containing point."
  (save-excursion
    (allout-end-of-prefix)
    (if (not (search-forward "\n" nil t))
        nil
      (backward-char 1)
      (let ((pre-body (point)))
        (if (not pre-body)
            nil
          (allout-end-of-entry t)
          (if (not (= pre-body (point)))
              (buffer-substring-no-properties (1+ pre-body) (point))))
        )
      )
    )
  )