Mercurial > emacs
comparison lisp/term/x-win.el @ 39400:e69aa66ec7cc
Update Stephen Gildea's mail address.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sun, 23 Sep 2001 17:48:31 +0000 |
parents | 30246e46027e |
children | ce0c926022b3 |
comparison
equal
deleted
inserted
replaced
39399:c7c47d22ece8 | 39400:e69aa66ec7cc |
---|---|
1182 :group 'killing) | 1182 :group 'killing) |
1183 | 1183 |
1184 ;;; Make TEXT, a string, the primary X selection. | 1184 ;;; Make TEXT, a string, the primary X selection. |
1185 ;;; Also, set the value of X cut buffer 0, for backward compatibility | 1185 ;;; Also, set the value of X cut buffer 0, for backward compatibility |
1186 ;;; with older X applications. | 1186 ;;; with older X applications. |
1187 ;;; gildea@lcs.mit.edu says it's not desirable to put kills | 1187 ;;; gildea@stop.mail-abuse.org says it's not desirable to put kills |
1188 ;;; in the clipboard. | 1188 ;;; in the clipboard. |
1189 (defun x-select-text (text &optional push) | 1189 (defun x-select-text (text &optional push) |
1190 ;; Don't send the cut buffer too much text. | 1190 ;; Don't send the cut buffer too much text. |
1191 ;; It becomes slow, and if really big it causes errors. | 1191 ;; It becomes slow, and if really big it causes errors. |
1192 (if (< (length text) x-cut-buffer-max) | 1192 (if (< (length text) x-cut-buffer-max) |