* simple.el (undo-elt-in-region): Fix buffer corruption for edge

case of undo in region.
* automated/undo-tests.el (undo-test-in-region-not-most-recent):
Add new test of undo in region.
(undo-test-in-region-eob): Add test case described at
http://debbugs.gnu.org/cgi/bugreport.cgi?bug=16411#41

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17f225708a2..a2a88f4b86b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-03-02  Barry O'Reilly <gundaetiapo@gmail.com>
+
+        * simple.el (undo-elt-in-region): Fix buffer corruption for edge
+        case of undo in region.
+
 2014-03-02  Martin Rudalics  <rudalics@gmx.at>
 
         * window.el (fit-window-to-buffer): Fix argument in window-size
diff --git a/lisp/simple.el b/lisp/simple.el
index bf8b6a75ac7..18448331ff0 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2426,7 +2426,7 @@ If it crosses the edge, we return nil."
         ((stringp (car undo-elt))
          ;; (TEXT . POSITION)
          (and (>= (abs (cdr undo-elt)) start)
-              (< (abs (cdr undo-elt)) end)))
+              (<= (abs (cdr undo-elt)) end)))
         ((and (consp undo-elt) (markerp (car undo-elt)))
          ;; This is a marker-adjustment element (MARKER . ADJUSTMENT).
          ;; See if MARKER is inside the region.