diff options
author | Richard M. Stallman <[email protected]> | 1994-11-22 02:52:14 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-11-22 02:52:14 +0000 |
commit | 713dca1ca455566a6fc5a640f99c18a2789d6c43 (patch) | |
tree | e7eb743aab3d407d720738a5d46bccf7917c6e19 /lisp/simple.el | |
parent | 8d8aa69a5b8223f1a8f28a7cc57bd67312a06354 (diff) |
(kill-region): Use = to compare positions.
Diffstat (limited to 'lisp/simple.el')
-rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 1f0162cded..16e333ed72 100644 --- 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) |