Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
47096a67
Commit
47096a67
authored
Aug 10, 1993
by
Paul Eggert
Browse files
(current-kill): Replace (% (+ N (- L K)) L) with (mod (- N K) L),
which is simpler.
parent
9b1868cc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
5 deletions
+4
-5
lisp/simple.el
lisp/simple.el
+4
-5
No files found.
lisp/simple.el
View file @
47096a67
...
...
@@ -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
)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment