Function: whitespace-lines-regexp

whitespace-lines-regexp is a byte-compiled function defined in whitespace.el.gz.

Signature

(whitespace-lines-regexp LIMIT)

Source Code

;; Defined in /usr/src/emacs/lisp/whitespace.el.gz
(defun whitespace-lines-regexp (limit)
  (re-search-forward
   (let ((line-column (or whitespace-line-column fill-column)))
     (format
      "^\\([^\t\n]\\{%s\\}\\|[^\t\n]\\{0,%s\\}\t\\)\\{%d\\}%s\\(.+\\)$"
      tab-width
      (1- tab-width)
      (/ line-column tab-width)
      (let ((rem (% line-column tab-width)))
        (if (zerop rem)
            ""
          (format ".\\{%d\\}" rem)))))
   limit t))