procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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