mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1995-08-30 19:33:08 +00:00
parent a513a2f85f
commit 657a33ab15
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/simple.el
View File

@ -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.