53 |
numbers, and the build number." |
numbers, and the build number." |
54 |
(x-server-version)) |
(x-server-version)) |
55 |
|
|
|
(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.") |
|
|
|
|
56 |
(defun w32-using-nt () |
(defun w32-using-nt () |
57 |
"Return non-nil if literally running on Windows NT (i.e., not Windows 9X)." |
"Return non-nil if literally running on Windows NT (i.e., not Windows 9X)." |
58 |
(and (eq system-type 'windows-nt) (getenv "SystemRoot"))) |
(and (eq system-type 'windows-nt) (getenv "SystemRoot"))) |
77 |
'("cmdproxy" "cmdproxy.exe")) |
'("cmdproxy" "cmdproxy.exe")) |
78 |
(w32-system-shell-p (getenv "COMSPEC"))))) |
(w32-system-shell-p (getenv "COMSPEC"))))) |
79 |
|
|
|
(defvar w32-allow-system-shell nil |
|
|
"*Disable startup warning when using \"system\" shells.") |
|
|
|
|
80 |
(defun w32-check-shell-configuration () |
(defun w32-check-shell-configuration () |
81 |
"Check the configuration of shell variables on Windows NT/9X. |
"Check the configuration of shell variables on Windows NT/9X. |
82 |
This function is invoked after loading the init files and processing |
This function is invoked after loading the init files and processing |
426 |
(defvar x-cut-buffer-max 20000 |
(defvar x-cut-buffer-max 20000 |
427 |
"Max number of characters to put in the cut buffer.") |
"Max number of characters to put in the cut buffer.") |
428 |
|
|
|
(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) |
|
|
|
|
429 |
(defun x-select-text (text &optional push) |
(defun x-select-text (text &optional push) |
430 |
"Make TEXT the last selected text. |
"Make TEXT the last selected text. |
431 |
If `x-select-enable-clipboard' is non-nil, copy the text to the system |
If `x-select-enable-clipboard' is non-nil, copy the text to the system |