From 7e37cd30c65126d82b38d86d2acb822aa0f25604 Mon Sep 17 00:00:00 2001 From: Brian Fox Date: Tue, 21 Sep 1993 07:43:20 +0000 Subject: [PATCH] (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. --- lisp/simple.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5