Function: allout-beginning-of-current-line

allout-beginning-of-current-line is a byte-compiled function defined in allout.el.gz.

Signature

(allout-beginning-of-current-line)

Documentation

Like beginning of line, but to visible text.

Source Code

;; Defined in /usr/src/emacs/lisp/allout.el.gz
;;;_  - Navigation routines
;;;_   > allout-beginning-of-current-line ()
(defun allout-beginning-of-current-line ()
  "Like beginning of line, but to visible text."

  ;; This combination of move-beginning-of-line and beginning-of-line is
  ;; deliberate, but the (beginning-of-line) may now be superfluous.
  (let ((inhibit-field-text-motion t))
    (move-beginning-of-line 1)
    (beginning-of-line)
    (while (and (not (bobp)) (or (not (bolp)) (allout-hidden-p)))
      (beginning-of-line)
      (if (or (allout-hidden-p) (not (bolp)))
          (forward-char -1)))))