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)