mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(current-kill): Replace (% (+ N (- L K)) L) with (mod (- N K) L),

Browse source 
which is simpler.
This commit is contained in:
Paul Eggert 1993-08-10 04:14:17 +00:00
parent 9b1868cc53
commit 47096a67ef
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/simple.el
View file

@ -998,11 +998,10 @@ yanking point; just return the Nth kill forward."
(kill-new interprogram-paste))
interprogram-paste)
(or kill-ring (error "Kill ring is empty"))
(let* ((length (length kill-ring))
(ARGth-kill-element
(nthcdr (% (+ n (- length (length kill-ring-yank-pointer)))
length)
kill-ring)))
(let ((ARGth-kill-element
(nthcdr (mod (- n (length kill-ring-yank-pointer))
(length kill-ring))
kill-ring)))
(or do-not-move
(setq kill-ring-yank-pointer ARGth-kill-element))
(car ARGth-kill-element)))))