diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-30 19:33:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-30 19:33:08 +0000 |
| commit | 657a33ab15e2d089e35a78dcc06c1238583740b5 (patch) | |
| tree | 6dc6d12e8e86a1673bc50c15ef353406edb3f946 /lisp/simple.el | |
| parent | a513a2f85f919ee80a0b253409666a9e4b92bdbd (diff) | |
| download | emacs-657a33ab15e2d089e35a78dcc06c1238583740b5.tar.gz | |
(kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index ea27a5bf460..68a5005e54a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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. |