(kill-region): Use `equal' instead of `eq' to compare markers `beg'

and `end'.  They might be two different markers that point to the same
place.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 58edc738d1f..581134f80e1 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1041,7 +1041,7 @@ to make one entry in the kill ring."
    ;; ring to share the same string object.  This code does that.
    ((not (or (eq buffer-undo-list t)
              (eq last-command 'kill-region)
-             (eq beg end)))
+             (equal beg end)))
     ;; Don't let the undo list be truncated before we can even access it.
     (let ((undo-strong-limit (+ (- (max beg end) (min beg end)) 100))
           (old-list buffer-undo-list)