Function: indent-rigidly--current-indentation

indent-rigidly--current-indentation is a byte-compiled function defined in indent.el.gz.

Signature

(indent-rigidly--current-indentation BEG END)

Documentation

Return the smallest indentation in range from BEG to END.

Blank lines are ignored.

Source Code

;; Defined in /usr/src/emacs/lisp/indent.el.gz
(defun indent-rigidly--current-indentation (beg end)
  "Return the smallest indentation in range from BEG to END.
Blank lines are ignored."
  (save-excursion
    (save-match-data
      (let ((beg (progn (goto-char beg) (line-beginning-position)))
            indent)
        (goto-char beg)
        (while (re-search-forward "^\\s-*[[:print:]]" end t)
          (setq indent (min (or indent (current-indentation))
                            (current-indentation))))
        indent))))