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

2 files changed, 8 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ade0bda6362..9deec93eb24 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-01  Johan Bockg,Ae(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 105c5a9afce..8bd3a30a59b 100644
--- 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*