# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 862862026 0
# Node ID 40d6f66af2bc59de49a916264196e1a0185a784e
# Parent  607e8ef61ed0b4a18f776565f00052d5c5952ebc
Comment change.

diff -r 607e8ef61ed0 -r 40d6f66af2bc lisp/term/x-win.el
--- a/lisp/term/x-win.el	Mon May 05 19:16:09 1997 +0000
+++ b/lisp/term/x-win.el	Mon May 05 19:53:46 1997 +0000
@@ -582,6 +582,9 @@
 ;;; Return the value of the current X selection.
 ;;; Consult the selection, then the cut buffer.  Treat empty strings
 ;;; as if they were unset.
+;;; If this function is called twice and finds the same text,
+;;; it returns nil the second time.  This is so that a single
+;;; selection won't be added to the kill ring over and over.
 (defun x-cut-buffer-or-selection-value ()
   (let (text)