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*