diff options
Diffstat (limited to 'lisp/term/pc-win.el')
-rw-r--r-- | lisp/term/pc-win.el | 29 |
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)) |