# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 785472734 0
# Node ID 1c6132b72da91328dc83d217ece20fd1c5639b7a
# Parent  8f4aaec7f0e0690321839f5953657136dd373d64
(kill-region): Use = to compare positions.

diff -r 8f4aaec7f0e0 -r 1c6132b72da9 lisp/simple.el
--- a/lisp/simple.el	Mon Nov 21 17:15:24 1994 +0000
+++ b/lisp/simple.el	Tue Nov 22 02:52:14 1994 +0000
@@ -1120,7 +1120,8 @@
    ;; 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)