1100 |
If it crosses the edge, we return nil." |
If it crosses the edge, we return nil." |
1101 |
(cond ((integerp undo-elt) |
(cond ((integerp undo-elt) |
1102 |
(and (>= undo-elt start) |
(and (>= undo-elt start) |
1103 |
(< undo-elt end))) |
(<= undo-elt end))) |
1104 |
((eq undo-elt nil) |
((eq undo-elt nil) |
1105 |
t) |
t) |
1106 |
((atom undo-elt) |
((atom undo-elt) |
1120 |
(cons alist-elt undo-adjusted-markers))) |
(cons alist-elt undo-adjusted-markers))) |
1121 |
(and (cdr alist-elt) |
(and (cdr alist-elt) |
1122 |
(>= (cdr alist-elt) start) |
(>= (cdr alist-elt) start) |
1123 |
(< (cdr alist-elt) end)))) |
(<= (cdr alist-elt) end)))) |
1124 |
((null (car undo-elt)) |
((null (car undo-elt)) |
1125 |
;; (nil PROPERTY VALUE BEG . END) |
;; (nil PROPERTY VALUE BEG . END) |
1126 |
(let ((tail (nthcdr 3 undo-elt))) |
(let ((tail (nthcdr 3 undo-elt))) |
1127 |
(and (>= (car tail) start) |
(and (>= (car tail) start) |
1128 |
(< (cdr tail) end)))) |
(<= (cdr tail) end)))) |
1129 |
((integerp (car undo-elt)) |
((integerp (car undo-elt)) |
1130 |
;; (BEGIN . END) |
;; (BEGIN . END) |
1131 |
(and (>= (car undo-elt) start) |
(and (>= (car undo-elt) start) |
1132 |
(< (cdr undo-elt) end))))) |
(<= (cdr undo-elt) end))))) |
1133 |
|
|
1134 |
(defun undo-elt-crosses-region (undo-elt start end) |
(defun undo-elt-crosses-region (undo-elt start end) |
1135 |
"Test whether UNDO-ELT crosses one edge of that region START ... END. |
"Test whether UNDO-ELT crosses one edge of that region START ... END. |