# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 748597400 0
# Node ID 5815d7b38e9a88d0f7baab44d63752fd2953bca9
# Parent  0e239209a6dbafdbebee3974965edf6f223e1e40
(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.

diff -r 0e239209a6db -r 5815d7b38e9a lisp/simple.el
--- a/lisp/simple.el	Tue Sep 21 07:34:20 1993 +0000
+++ b/lisp/simple.el	Tue Sep 21 07:43:20 1993 +0000
@@ -1041,7 +1041,7 @@
    ;; 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)