Mercurial > emacs
changeset 4765:5815d7b38e9a
(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.
| author | Brian Fox <bfox@gnu.org> |
|---|---|
| date | Tue, 21 Sep 1993 07:43:20 +0000 |
| parents | 0e239209a6db |
| children | ec8c8721b7e3 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Tue Sep 21 07:34:20 1993 +0000 +++ b/lisp/simple.el Tue Sep 21 07:43:20 1993 +0000 @@ -1041,7 +1041,7 @@ ;; 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)