From: Brian Fox <bfox@gnu.org>
Date: Tue, 21 Sep 1993 07:43:20 +0000 (+0000)
Subject: (kill-region): Use `equal' instead of `eq' to compare markers `beg'
X-Git-Tag: emacs-19.34~11086
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e37cd30c65126d82b38d86d2acb822aa0f25604;p=emacs.git

(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 --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)