From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 22 Nov 1994 02:52:14 +0000 (+0000)
Subject: (kill-region): Use = to compare positions.
X-Git-Tag: emacs-19.34~5821
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=713dca1ca455566a6fc5a640f99c18a2789d6c43;p=emacs.git

(kill-region): Use = to compare positions.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 1f0162cdedd..16e333ed72e 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1120,7 +1120,8 @@ 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)
-	     (equal beg end)))
+	     ;; Use = since positions may be numbers or markers.
+	     (= 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)