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

diff --git a/lisp/simple.el b/lisp/simple.el
index 1f0162cdedd1d987de68ad225c1662a599938090..16e333ed72e2a859960643d7d2bae4a2750c867c 100644 (file)
--- 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)