Function: undo-elt-crosses-region

undo-elt-crosses-region is a byte-compiled function defined in simple.el.gz.

This function is obsolete since 25.1.

Signature

(undo-elt-crosses-region UNDO-ELT START END)

Documentation

Test whether UNDO-ELT crosses one edge of that region START ... END.

This assumes we have already decided that UNDO-ELT is not *inside* the region START...END.

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun undo-elt-crosses-region (undo-elt start end)
  "Test whether UNDO-ELT crosses one edge of that region START ... END.
This assumes we have already decided that UNDO-ELT
is not *inside* the region START...END."
  (declare (obsolete nil "25.1"))
  (cond ((atom undo-elt) nil)
	((null (car undo-elt))
	 ;; (nil PROPERTY VALUE BEG . END)
	 (let ((tail (nthcdr 3 undo-elt)))
	   (and (< (car tail) end)
		(> (cdr tail) start))))
	((integerp (car undo-elt))
	 ;; (BEGIN . END)
	 (and (< (car undo-elt) end)
	      (> (cdr undo-elt) start)))))