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 6bc534827078685418cf787b835179f2dc2b6b1b..8224ae72edf1ce60484614b4f14c04a9c410dc77 100644 (file)
--- 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)