# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1159756159 0
# Node ID 4a27744452bb653843393ec700300a6bc00baac2
# Parent  4a95d08e51260580e91c430d02da31d8ceb60805
(undo-elt-crosses-region): Fix the inequalities.

diff -r 4a95d08e5126 -r 4a27744452bb lisp/simple.el
--- 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*