Mercurial > emacs
changeset 12975:9bad6a54e268
(kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 30 Aug 1995 19:33:08 +0000 |
| parents | fd7b8d2ba9e9 |
| children | 55e427250ad3 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Aug 30 16:01:39 1995 +0000 +++ b/lisp/simple.el Wed Aug 30 19:33:08 1995 +0000 @@ -1131,7 +1131,7 @@ (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.