(undo-elt-crosses-region): Fix the inequalities.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ade0bda6362389bda2d01014ed2682a23171a193..9deec93eb24a13dac6bb95c03e49928101618f06 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-01  Johan Bockg\e,Ae\e(Brd  <bojohan+mail@dd.chalmers.se>
+
+       * simple.el (undo-elt-crosses-region): Fix the inequalities.
+
 2006-10-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/find-func.el (find-function-regexp): Don't match

diff --git a/lisp/simple.el b/lisp/simple.el
index 105c5a9afcef41c00a100ce72808105bd572a0be..8bd3a30a59b10980e4b2a6392ded4593e6d25182 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1648,12 +1648,12 @@ is not *inside* the region START...END."
        ((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*