From 7bea5f318fa2ca5ac6c51b4a8b2010d95e337134 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 May 1995 22:30:32 +0000
Subject: [PATCH] Integrate support for OS-dependent cut&paste buffer into the
 kill and yank commands, as is done in Emacs 19.  This support is available in
 the OS/2 implementation.

---
 v7/src/edwin/kilcom.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/kilcom.scm b/v7/src/edwin/kilcom.scm
index 6bc534827..8224ae72e 100644
--- a/v7/src/edwin/kilcom.scm
+++ b/v7/src/edwin/kilcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: kilcom.scm,v 1.66 1995/05/02 21:47:43 cph Exp $
+;;;	$Id: kilcom.scm,v 1.67 1995/05/02 22:30:32 cph Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-95 Massachusetts Institute of Technology
 ;;;
@@ -223,10 +223,10 @@ The command \\[yank] can retrieve it from there.
 		   (string-append string (car kill-ring)))))
 	  (set-car! kill-ring string)
 	  (set-variable! kill-ring-yank-pointer kill-ring)
-	  (os/interprogram-cut string))))
+	  (os/interprogram-cut string #f))))
     (lambda ()
       (kill-ring-save-1 string)
-      (os/interprogram-cut string)))
+      (os/interprogram-cut string #t)))
   (set-command-message! append-next-kill-tag))
 
 (define (kill-ring-save-1 string)
-- 
2.25.1