# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1011540787 0
# Node ID 094039817cba9dffb31ccc3354ab217f7e61a375
# Parent  d254de34728580f81b2cbea301b6845ddd8061b9
Move user variables to w32-vars.el and make them defcustoms.

diff -r d254de347285 -r 094039817cba lisp/w32-fns.el
--- a/lisp/w32-fns.el	Sun Jan 20 15:28:28 2002 +0000
+++ b/lisp/w32-fns.el	Sun Jan 20 15:33:07 2002 +0000
@@ -53,11 +53,6 @@
 numbers, and the build number."
   (x-server-version))
 
-(defvar w32-system-shells '("cmd" "cmd.exe" "command" "command.com"
-			    "4nt" "4nt.exe" "4dos" "4dos.exe"
-			    "ndos" "ndos.exe")
-  "List of strings recognized as Windows NT/9X system shells.")
-
 (defun w32-using-nt ()
   "Return non-nil if literally running on Windows NT (i.e., not Windows 9X)."
   (and (eq system-type 'windows-nt) (getenv "SystemRoot")))
@@ -82,9 +77,6 @@
 		   '("cmdproxy" "cmdproxy.exe"))
 	   (w32-system-shell-p (getenv "COMSPEC")))))
 
-(defvar w32-allow-system-shell nil
-  "*Disable startup warning when using \"system\" shells.")
-
 (defun w32-check-shell-configuration ()
   "Check the configuration of shell variables on Windows NT/9X.
 This function is invoked after loading the init files and processing
@@ -434,12 +426,6 @@
 (defvar x-cut-buffer-max 20000
   "Max number of characters to put in the cut buffer.")
 
-(defcustom x-select-enable-clipboard t
-  "Non-nil means cutting and pasting uses the clipboard.
-This is in addition to the primary selection."
-  :type 'boolean
-  :group 'killing)
-
 (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