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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ade0bda..9deec93 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 105c5a9..8bd3a30 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*