mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-11-22 02:52:14 +00:00
parent 8d8aa69a5b
commit 713dca1ca4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/simple.el
View File

@ -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)