Mercurial > emacs
changeset 10034:1c6132b72da9
(kill-region): Use = to compare positions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 22 Nov 1994 02:52:14 +0000 |
| parents | 8f4aaec7f0e0 |
| children | be51e61f9fb7 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)