# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1179271270 0
# Node ID 6046e2e69b86226f485e9df78884cbc25f71e344
# Parent  db5d730e394c2592822775ffce1f2a80c2029756
Provide w32-win.
Don't throw error when global window-system not w32.
(x-cut-buffer-max): Remove.
(w32-initialize-window-system): New function.
(handle-args-function-alist, frame-creation-function-alist):
(window-system-initialization-alist): Add w32 entries.

diff -r db5d730e394c -r 6046e2e69b86 lisp/term/w32-win.el
--- a/lisp/term/w32-win.el	Tue May 15 23:12:09 2007 +0000
+++ b/lisp/term/w32-win.el	Tue May 15 23:21:10 2007 +0000
@@ -68,8 +68,8 @@
 ;; An alist of X options and the function which handles them.  See
 ;; ../startup.el.
 
-(if (not (eq window-system 'w32))
-    (error "%s: Loading w32-win.el but not compiled for w32" (invocation-name)))
+;; (if (not (eq window-system 'w32))
+;;     (error "%s: Loading w32-win.el but not compiled for w32" (invocation-name)))
 
 (require 'frame)
 (require 'mouse)
@@ -1075,8 +1075,8 @@
 
 (setq frame-creation-function 'x-create-frame-with-faces)
 
-(setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
-			    x-cut-buffer-max))
+;; (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
+;; 			    x-cut-buffer-max))
 
 ;; W32 expects the menu bar cut and paste commands to use the clipboard.
 ;; This has ,? to match both on Sunos and on Solaris.
@@ -1246,5 +1246,16 @@
         (tiff "libtiff3.dll" "libtiff.dll")
         (gif "giflib4.dll" "libungif4.dll" "libungif.dll")))
 
+;; multi-tty support
+(defun w32-initialize-window-system ()
+  "Initialize Emacs for W32 GUI frames."
+)
+
+(add-to-list 'handle-args-function-alist '(w32 . x-handle-args))
+(add-to-list 'frame-creation-function-alist '(w32 . x-create-frame-with-faces))
+(add-to-list 'window-system-initialization-alist '(w32 . w32-initialize-window-system))
+
+(provide 'w32-win)
+
 ;; arch-tag: 69fb1701-28c2-4890-b351-3d1fe4b4f166
 ;;; w32-win.el ends here