Move user variables to w32-vars.el and make them defcustoms.

This commit is contained in:
Jason Rumney
2002-01-20 15:33:07 +00:00
parent be932fda8d
commit 8c2aed8f60

View File

@@ -53,11 +53,6 @@ The value is a list of three integers: the major and minor version
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 @@ numbers, and the build number."
'("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 @@ bit output with no translation."
(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