/[emacs]/emacs/lisp/w32-fns.el
ViewVC logotype

Diff of /emacs/lisp/w32-fns.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47 by jasonr, Tue Nov 20 22:14:20 2001 UTC revision 1.48 by jasonr, Sun Jan 20 15:33:07 2002 UTC
# Line 53  The value is a list of three integers: t Line 53  The value is a list of three integers: t
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")))
# Line 82  numbers, and the build number." Line 77  numbers, and the build number."
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
# Line 434  bit output with no translation." Line 426  bit output with no translation."
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

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26