Mercurial > emacs
diff lisp/simple.el @ 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 | 1fc5a2981547 |
children | a83a1515fd9b |
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.