diff options
| author | Richard M. Stallman | 1995-08-30 19:33:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-30 19:33:08 +0000 |
| commit | 657a33ab15e2d089e35a78dcc06c1238583740b5 (patch) | |
| tree | 6dc6d12e8e86a1673bc50c15ef353406edb3f946 | |
| parent | a513a2f85f919ee80a0b253409666a9e4b92bdbd (diff) | |
| download | emacs-657a33ab15e2d089e35a78dcc06c1238583740b5.tar.gz emacs-657a33ab15e2d089e35a78dcc06c1238583740b5.zip | |
(kill-new): Compute 2nd arg to interprogram-cut-function based on REPLACE.
| -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." | |||
| 1131 | (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))) | 1131 | (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))) |
| 1132 | (setq kill-ring-yank-pointer kill-ring) | 1132 | (setq kill-ring-yank-pointer kill-ring) |
| 1133 | (if interprogram-cut-function | 1133 | (if interprogram-cut-function |
| 1134 | (funcall interprogram-cut-function string t))) | 1134 | (funcall interprogram-cut-function string (not replace)))) |
| 1135 | 1135 | ||
| 1136 | (defun kill-append (string before-p) | 1136 | (defun kill-append (string before-p) |
| 1137 | "Append STRING to the end of the latest kill in the kill ring. | 1137 | "Append STRING to the end of the latest kill in the kill ring. |