Mercurial > emacs
comparison lisp/term/w32-win.el @ 34113:fa597347c65f
(x-select-enable-clipboard): Customize (as per the Emacs Lisp manual)
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Sat, 02 Dec 2000 14:47:35 +0000 |
| parents | c6e051bf5f2e |
| children | 4004961c2f06 |
comparison
equal
deleted
inserted
replaced
| 34112:adfe753a8c4e | 34113:fa597347c65f |
|---|---|
| 564 ;;; It is said that overlarge strings are slow to put into the cut buffer. | 564 ;;; It is said that overlarge strings are slow to put into the cut buffer. |
| 565 ;;; Note this value is overridden below. | 565 ;;; Note this value is overridden below. |
| 566 (defvar x-cut-buffer-max 20000 | 566 (defvar x-cut-buffer-max 20000 |
| 567 "Max number of characters to put in the cut buffer.") | 567 "Max number of characters to put in the cut buffer.") |
| 568 | 568 |
| 569 (defvar x-select-enable-clipboard t | 569 (defcustom x-select-enable-clipboard t |
| 570 "Non-nil means cutting and pasting uses the clipboard. | 570 "Non-nil means cutting and pasting uses the clipboard. |
| 571 This is in addition to the primary selection.") | 571 This is in addition to the primary selection." |
| 572 :type 'boolean | |
| 573 :group 'killing) | |
| 572 | 574 |
| 573 (defun x-select-text (text &optional push) | 575 (defun x-select-text (text &optional push) |
| 574 "Make TEXT the last selected text. | 576 "Make TEXT the last selected text. |
| 575 If `x-select-enable-clipboard' is non-nil, copy the text to the system | 577 If `x-select-enable-clipboard' is non-nil, copy the text to the system |
| 576 clipboard as well. Optional PUSH is ignored on Windows." | 578 clipboard as well. Optional PUSH is ignored on Windows." |