From 52cc7b91d26e163580b75c3a6d1dbc8ead6a3038 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 20 Jul 2009 21:30:22 +0000 Subject: [PATCH] * term/pc-win.el (x-display-name, x-colors) (x-select-enable-clipboard): Doc fix. * term/common-win.el (x-display-name, x-colors): Doc fix. * w32-vars.el (x-select-enable-clipboard): Doc fix. * term/ns-win.el (x-select-text, x-setup-function-keys, x-colors) (xw-defined-colors): Doc fix. * w32-fns.el (x-select-text, x-setup-function-keys): Doc fix. * term/x-win.el (x-select-text, x-setup-function-keys) (x-select-enable-clipboard, xw-defined-colors): Doc fix. --- lisp/ChangeLog | 17 +++++++++++++++++ lisp/term/common-win.el | 13 +++++++------ lisp/term/ns-win.el | 32 ++++++++++++++++++++++++-------- lisp/term/pc-win.el | 12 ++++++++---- lisp/term/x-win.el | 22 +++++++++++++++------- lisp/w32-fns.el | 18 ++++++++++++++---- lisp/w32-vars.el | 2 +- 7 files changed, 86 insertions(+), 30 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2ffe1f14a5c..67611b40328 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,20 @@ +2009-07-20 Chong Yidong + + * term/pc-win.el (x-display-name, x-colors) + (x-select-enable-clipboard): Doc fix. + + * term/common-win.el (x-display-name, x-colors): Doc fix. + + * w32-vars.el (x-select-enable-clipboard): Doc fix. + + * term/ns-win.el (x-select-text, x-setup-function-keys, x-colors) + (xw-defined-colors): Doc fix. + + * w32-fns.el (x-select-text, x-setup-function-keys): Doc fix. + + * term/x-win.el (x-select-text, x-setup-function-keys) + (x-select-enable-clipboard, xw-defined-colors): Doc fix. + 2009-07-20 Dan Nicolaescu * term/vt420.el (terminal-init-vt420): Fix typo. diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el index 5764dbc8dc3..4858e47d0ec 100644 --- a/lisp/term/common-win.el +++ b/lisp/term/common-win.el @@ -131,10 +131,9 @@ initial-frame-alist))) (defvar x-display-name nil - "The name of the X display on which Emacs was started. - -For the X display name of individual frames, see the `display' -frame parameter.") + "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.") (defun x-handle-display (switch) "Handle -display DISPLAY option." @@ -288,8 +287,10 @@ This function returns ARGS minus the arguments that have been processed." "cyan" "medium spring green" "spring green" "green" "lawn green" "chartreuse" "yellow" "gold" "orange" "dark orange" "orange red" "red" "white" "white smoke" "gainsboro" "light grey" "gray" "dark grey" "dim gray" "black" ) - "The list of X colors from the `rgb.txt' file. -XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") + "List of available colors for graphical frames. +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.") ;; arch-tag: 2a128601-99cc-401e-9dff-0ee6a36102ef ;;; common-win.el ends here diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 41c47d73ff3..bca350311cd 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -99,9 +99,10 @@ (setq initial-frame-alist (cons (cons 'name (pop ns-invocation-args)) initial-frame-alist))) -;; Set (but not used?) in frame.el. (defvar x-display-name nil - "The name of the Nextstep display on which Emacs was started.") + "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.") ;; nsterm.m. (defvar ns-input-file) @@ -309,7 +310,7 @@ The properties returned may include `top', `left', `height', and `width'." (defalias 'do-applescript 'ns-do-applescript) (defun x-setup-function-keys (frame) - "Set up function Keys for Nextstep for frame FRAME." + "Set up function keys on the graphical frame FRAME." (unless (terminal-parameter frame 'x-setup-function-keys) (with-selected-frame frame (setq interprogram-cut-function 'x-select-text @@ -1003,7 +1004,19 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") (defvar ns-last-selected-text nil) (defun x-select-text (text &optional push) - "Put TEXT, a string, on the pasteboard." + "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." ;; Don't send the pasteboard too much text. ;; It becomes slow, and if really big it causes errors. (ns-set-pasteboard text) @@ -1113,12 +1126,15 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") (declare-function ns-list-colors "nsfns.m" (&optional frame)) (defvar x-colors (ns-list-colors) - "The list of colors defined in non-PANTONE color files.") + "List of available colors for graphical frames. +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.") +;; The argument FRAME specifies which frame to try. +;; The value may be different for frames on different Nextstep displays. (defun xw-defined-colors (&optional frame) - "Return a list of colors supported for a particular frame. -The argument FRAME specifies which frame to try. -The value may be different for frames on different Nextstep displays." + "Internal function called by `defined-colors'." (or frame (setq frame (selected-frame))) (let ((all-colors x-colors) (this-color nil) diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el index 6fb714c1412..4f4cb568a3e 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 available colors for graphical frames. +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,8 +201,7 @@ 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." :type 'boolean :group 'killing) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 3e00a81be15..5443b81f0bd 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -255,7 +255,7 @@ exists." (defvar x-colors) (defun xw-defined-colors (&optional frame) - "Internal function called by `defined-colors', which see." + "Internal function called by `defined-colors'." (or frame (setq frame (selected-frame))) (let ((all-colors x-colors) (this-color nil) @@ -292,7 +292,7 @@ exists." "Keymap of possible alternative meanings for some keys.") (defun x-setup-function-keys (frame) - "Set up `function-key-map' on FRAME for the X window system." + "Set up `function-key-map' on the graphical frame FRAME." ;; Don't do this twice on the same display, or it would break ;; normal-erase-is-backspace-mode. (unless (terminal-parameter frame 'x-setup-function-keys) @@ -1249,11 +1249,19 @@ This is in addition to, but in preference to, the primary selection." :group 'killing) (defun x-select-text (text &optional push) - "Make TEXT, a string, the primary X selection. -Also, set the value of X cut buffer 0, for backward compatibility -with older X applications. -gildea@stop.mail-abuse.org says it's not desirable to put kills -in the clipboard." + "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." ;; With multi-tty, this function may be called from a tty frame. (when (eq (framep (selected-frame)) 'x) ;; Don't send the cut buffer too much text. diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 379dd63eb17..26bba8f9e76 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -55,7 +55,7 @@ "Keymap of possible alternative meanings for some keys.") (defun x-setup-function-keys (frame) - "Set up `function-key-map' on FRAME for w32." + "Set up `function-key-map' on the graphical frame FRAME." ;; Don't do this twice on the same display, or it would break ;; normal-erase-is-backspace-mode. (unless (terminal-parameter frame 'x-setup-function-keys) @@ -415,9 +415,19 @@ bit output with no translation." "Max number of characters to put in the cut buffer.") (defun x-select-text (text &optional push) - "Make TEXT the last selected text. -If `x-select-enable-clipboard' is non-nil, copy the text to the system -clipboard as well. Optional PUSH is ignored on Windows." + "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 (w32-set-clipboard-data text)) (setq x-last-selected-text text)) diff --git a/lisp/w32-vars.el b/lisp/w32-vars.el index 4ac2b7f81c2..920ae8f2cf3 100644 --- a/lisp/w32-vars.el +++ b/lisp/w32-vars.el @@ -149,7 +149,7 @@ menu if the variable `w32-use-w32-font-dialog' is nil." (defcustom x-select-enable-clipboard t "Non-nil means cutting and pasting uses the clipboard. -This is in addition to the primary selection." +This is in addition to, but in preference to, the primary selection." :type 'boolean :group 'killing) -- 2.39.2