From: Jason Rumney <jasonr@gnu.org>
Date: Sun, 27 Feb 2000 21:28:38 +0000 (+0000)
Subject: (init_environment): Set Vw32_num_mouse_buttons here.
X-Git-Tag: emacs-pretest-21.0.90~4862
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20af483168612edcf22085f4701d37b9d1cc8e05;p=emacs.git

(init_environment): Set Vw32_num_mouse_buttons here.
---

diff --git a/src/w32.c b/src/w32.c
index 99ac51897d1..67cf9506ad6 100644
--- a/src/w32.c
+++ b/src/w32.c
@@ -91,6 +91,7 @@ Boston, MA 02111-1307, USA.
 extern Lisp_Object Vw32_downcase_file_names;
 extern Lisp_Object Vw32_generate_fake_inodes;
 extern Lisp_Object Vw32_get_true_file_attributes;
+extern Lisp_Object Vw32_num_mouse_buttons;
 
 static char startup_dir[MAXPATHLEN];
 
@@ -787,6 +788,11 @@ init_environment (char ** argv)
     argv[0] = modname;
   }
 
+  /* Determine if there is a middle mouse button, to allow parse_button
+     to decide whether right mouse events should be mouse-2 or
+     mouse-3. */
+  XSETINT (Vw32_num_mouse_buttons, GetSystemMetrics (SM_CMOUSEBUTTONS));
+
   init_user_info ();
 }