Mercurial > emacs
changeset 42847:094039817cba
Move user variables to w32-vars.el and make them defcustoms.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Sun, 20 Jan 2002 15:33:07 +0000 |
| parents | d254de347285 |
| children | 4313f287da4d |
| files | lisp/w32-fns.el |
| diffstat | 1 files changed, 0 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- 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