Function: cua--tabify-start

cua--tabify-start is a byte-compiled function defined in cua-rect.el.gz.

Signature

(cua--tabify-start START END)

Documentation

Return position where auto-tabify should start (or nil if not required).

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/cua-rect.el.gz
;;; Operations on current rectangle

(defun cua--tabify-start (start end)
  "Return position where auto-tabify should start (or nil if not required)."
  (save-excursion
    (save-restriction
      (widen)
      (and (not buffer-read-only)
	   cua-auto-tabify-rectangles
	   (if (or (not (integerp cua-auto-tabify-rectangles))
		   (= (point-min) (point-max))
		   (progn
		     (goto-char (max (point-min)
				     (- start cua-auto-tabify-rectangles)))
		     (search-forward "\t" (min (point-max)
					       (+ end cua-auto-tabify-rectangles)) t)))
	       start)))))