From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 May 1995 22:30:32 +0000 (+0000)
Subject: Integrate support for OS-dependent cut&paste buffer into the kill and
X-Git-Tag: 20090517-FFI~6354
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7bea5f318fa2ca5ac6c51b4a8b2010d95e337134;p=mit-scheme.git

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.
---

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)