From c60b74b403da560f1457dff79de4eff17c658e4b Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Tue, 15 May 2007 23:21:10 +0000 Subject: [PATCH] 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. --- lisp/term/w32-win.el | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 56dbf944dfe..682de57d8a3 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -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 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") (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 @@ pop-up menu are unaffected by `w32-list-proportional-fonts')." (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 -- 2.39.5