Commit 657a33ab authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE.

parent a513a2f8
......@@ -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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment