summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-05-05 19:53:46 +0000
committerRichard M. Stallman <rms@gnu.org>1997-05-05 19:53:46 +0000
commit36f696d1d464d0c1f569195bdf485435d418bf32 (patch)
tree6a38c013a71caa63a3dd26ecf3d3ed1268e76fe9
parentf6478090a43c6508245d486729d8c4eb4adef477 (diff)
downloademacs-36f696d1d464d0c1f569195bdf485435d418bf32.tar.gz
Comment change.
-rw-r--r--lisp/term/x-win.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index a0cdc96e264..bd654a48668 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -582,6 +582,9 @@ This is in addition to the primary selection.")
;;; 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)