Mercurial > emacs
changeset 73209:4a27744452bb
(undo-elt-crosses-region): Fix the inequalities.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 02 Oct 2006 02:29:19 +0000 |
| parents | 4a95d08e5126 |
| children | d4e0ad705c88 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon Oct 02 02:27:12 2006 +0000 +++ b/lisp/simple.el Mon Oct 02 02:29:19 2006 +0000 @@ -1648,12 +1648,12 @@ ((null (car undo-elt)) ;; (nil PROPERTY VALUE BEG . END) (let ((tail (nthcdr 3 undo-elt))) - (not (or (< (car tail) end) - (> (cdr tail) start))))) + (and (< (car tail) end) + (> (cdr tail) start)))) ((integerp (car undo-elt)) ;; (BEGIN . END) - (not (or (< (car undo-elt) end) - (> (cdr undo-elt) start)))))) + (and (< (car undo-elt) end) + (> (cdr undo-elt) start))))) ;; Return the first affected buffer position and the delta for an undo element ;; delta is defined as the change in subsequent buffer positions if we *did*