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
657a33ab
Commit
657a33ab
authored
Aug 30, 1995
by
Richard M. Stallman
Browse files
(kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE.
parent
a513a2f8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
lisp/simple.el
lisp/simple.el
+1
-1
No files found.
lisp/simple.el
View file @
657a33ab
...
...
@@ -1131,7 +1131,7 @@ the front of the kill ring, rather than being added to the list."
(setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))
(setq kill-ring-yank-pointer kill-ring)
(if interprogram-cut-function
(funcall interprogram-cut-function string
t
)))
(funcall interprogram-cut-function string
(not replace)
)))
(defun kill-append (string before-p)
"
Append
STRING
to
the
end
of
the
latest
kill
in
the
kill
ring.
...
...
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