Move user variables to w32-vars.el and make them defcustoms.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user