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

which is simpler.

diff --git a/lisp/simple.el b/lisp/simple.el
index a0ae2f3eeaa2e3515519dc5270ba2b12ba7abdfe..58edc738d1fabf3b55bf9f0d3f9ecc40bee7c6e1 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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)))))