aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/term/pc-win.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/term/pc-win.el')
-rw-r--r--lisp/term/pc-win.el29
1 files changed, 25 insertions, 4 deletions
diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index 332e151a86..985cbfb671 100644
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -181,9 +181,14 @@ created."
;; From lisp/term/x-win.el
(defvar x-display-name "pc"
- "The display name specifying the MS-DOS display and frame type.")
+ "The name of the window display on which Emacs was started.
+On X, the display name of individual X frames is recorded in the
+`display' frame parameter.")
(defvar x-colors (mapcar 'car msdos-color-values)
- "The list of colors available on a PC display under MS-DOS.")
+ "List of basic colors available on color displays.
+For X, the list comes from the `rgb.txt' file,v 10.41 94/02/20.
+For Nextstep, this is a list of non-PANTONE colors returned by
+the operating system.")
;; From lisp/term/w32-win.el
;
@@ -196,12 +201,28 @@ created."
(defcustom x-select-enable-clipboard t
"Non-nil means cutting and pasting uses the clipboard.
-This is the default on this system, since MS-Windows does not
-support other types of selections."
+This is in addition to, but in preference to, the primary selection.
+
+On MS-Windows, this is non-nil by default, since Windows does not
+support other types of selections. \(The primary selection that is
+set by Emacs is not accessible to other programs on Windows.\)"
:type 'boolean
:group 'killing)
(defun x-select-text (text &optional push)
+ "Select TEXT, a string, according to the window system.
+
+On X, put TEXT in the primary X selection. For backward
+compatibility with older X applications, set the value of X cut
+buffer 0 as well, and if the optional argument PUSH is non-nil,
+rotate the cut buffers. If `x-select-enable-clipboard' is
+non-nil, copy the text to the X clipboard as well.
+
+On Windows, make TEXT the current selection. If
+`x-select-enable-clipboard' is non-nil, copy the text to the
+clipboard as well. The argument PUSH is ignored.
+
+On Nextstep, put TEXT in the pasteboard; PUSH is ignored."
(if x-select-enable-clipboard
(w16-set-clipboard-data text))
(setq x-last-selected-text text))