changeset 111134:a3c68a313b81

Reduce duplicate definitions of x-select-enable-clipboard from 3 to 2. * lisp/w32-vars.el (x-select-enable-clipboard): * lisp/term/x-win.el (x-select-enable-clipboard): Move to common-win. * lisp/term/common-win.el (x-select-enable-clipboard): Move here.
author Glenn Morris <rgm@gnu.org>
date Sat, 23 Oct 2010 18:57:21 -0700
parents d9b0552c39a6
children 600f564fdc23
files lisp/ChangeLog lisp/term/common-win.el lisp/term/x-win.el lisp/w32-vars.el
diffstat 4 files changed, 15 insertions(+), 22 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Oct 23 18:48:39 2010 -0700
+++ b/lisp/ChangeLog	Sat Oct 23 18:57:21 2010 -0700
@@ -1,5 +1,9 @@
 2010-10-24  Glenn Morris  <rgm@gnu.org>
 
+	* w32-vars.el (x-select-enable-clipboard):
+	* term/x-win.el (x-select-enable-clipboard): Move to common-win.
+	* term/common-win.el (x-select-enable-clipboard): Move here.
+
 	* term/tty-colors.el (tty-defined-color-alist): Remove duplicate
 	definition of C variable.
 
--- a/lisp/term/common-win.el	Sat Oct 23 18:48:39 2010 -0700
+++ b/lisp/term/common-win.el	Sat Oct 23 18:57:21 2010 -0700
@@ -25,6 +25,17 @@
 
 ;;; Code:
 
+(defcustom x-select-enable-clipboard t
+  "Non-nil means cutting and pasting uses the clipboard.
+This is in addition to, but in preference to, the primary selection.
+
+Note that MS-Windows does not support selection types other than the
+clipboard.   \(The primary selection that is set by Emacs is not
+accessible to other programs on MS-Windows.\)"
+  :type 'boolean
+  :group 'killing
+  ;; The GNU/Linux version changed in 24.1, the MS-Windows version did not.
+  :version "24.1")
 
 (defvar x-invocation-args)
 
@@ -371,5 +382,4 @@
 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
--- a/lisp/term/x-win.el	Sat Oct 23 18:48:39 2010 -0700
+++ b/lisp/term/x-win.el	Sat Oct 23 18:57:21 2010 -0700
@@ -1206,17 +1206,6 @@
   "The value of the PRIMARY X selection last time we selected or
 pasted text.")
 
-(defcustom x-select-enable-clipboard t
-  "Non-nil means cutting and pasting uses the clipboard.
-This is in addition to, but in preference to, the primary selection.
-
-Note that MS-Windows does not support selection types other than the
-clipboard.   \(The primary selection that is set by Emacs is not
-accessible to other programs on MS-Windows.\)"
-  :type 'boolean
-  :group 'killing
-  :version "24.1")
-
 (defcustom x-select-enable-primary nil
   "Non-nil means cutting and pasting uses the primary selection."
   :type 'boolean
--- a/lisp/w32-vars.el	Sat Oct 23 18:48:39 2010 -0700
+++ b/lisp/w32-vars.el	Sat Oct 23 18:57:21 2010 -0700
@@ -148,16 +148,6 @@
 		      (string :tag "Font")))))))
     :group 'w32)
 
-(defcustom x-select-enable-clipboard t
-  "Non-nil means cutting and pasting uses the clipboard.
-This is in addition to, but in preference to, the primary selection.
-
-Note that MS-Windows does not support selection types other than the
-clipboard.   \(The primary selection that is set by Emacs is not
-accessible to other programs on MS-Windows.\)"
-  :type 'boolean
-  :group 'killing)
-
 (provide 'w32-vars)
 
 ;;; w32-vars.el ends here