From 8f190436eaf7b7b8eaabb2c7ca4ac31fd581159c Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 31 Jul 2000 06:38:19 +0000
Subject: [PATCH] (Fmsdos_set_mouse_buttons, syms_of_msdos): New functions.
 (syms_of_msdos): Defsubr Fmsdos_set_mouse_buttons.

---
 src/msdos.c | 48 ++++++++++++++++++++++++++++++++++--------------
 1 file changed, 34 insertions(+), 14 deletions(-)

diff --git a/src/msdos.c b/src/msdos.c
index 64e6c3cd2b0..e0154a7f7ce 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -167,6 +167,38 @@ mouse_off ()
     }
 }
 
+static void
+mouse_setup_buttons (int n_buttons)
+{
+  if (n_buttons == 3)
+    {
+      mouse_button_count = 3;
+      mouse_button_translate[0] = 0; /* Left */
+      mouse_button_translate[1] = 2; /* Middle */
+      mouse_button_translate[2] = 1; /* Right */
+    }
+  else	/* two, what else? */
+    {
+      mouse_button_count = 2;
+      mouse_button_translate[0] = 0;
+      mouse_button_translate[1] = 1;
+    }
+}
+
+DEFUN ("msdos-set-mouse-buttons", Fmsdos_set_mouse_buttons, Smsdos_set_mouse_buttons,
+       1, 1, "NSet number of mouse buttons to: ",
+  "Set the number of mouse buttons to use by Emacs.\n
+This is useful with mice that report the number of buttons inconsistently,\n
+e.g., if the number of buttons is reported as 3, but Emacs only sees 2 of\n
+them.  This happens with wheeled mice on Windows 9X, for example.")
+  (nbuttons)
+     Lisp_Object nbuttons;
+{
+  CHECK_NUMBER (nbuttons, 0);
+  mouse_setup_buttons (XINT (nbuttons));
+  return Qnil;
+}
+
 static void
 mouse_get_xy (int *x, int *y)
 {
@@ -4517,20 +4549,7 @@ dos_ttraw ()
 	    {
 	      have_mouse = 1;	/* enable mouse */
 	      mouse_visible = 0;
-	      
-	      if (outregs.x.bx == 3)
-		{
-		  mouse_button_count = 3;
-		  mouse_button_translate[0] = 0; /* Left */
-		  mouse_button_translate[1] = 2; /* Middle */
-		  mouse_button_translate[2] = 1; /* Right */
-		}
-	      else
-		{
-		  mouse_button_count = 2;
-		  mouse_button_translate[0] = 0;
-		  mouse_button_translate[1] = 1;
-		}
+	      mouse_setup_buttons (outregs.x.bx);
 	      mouse_position_hook = &mouse_get_pos;
 	      mouse_init ();
 	    }
@@ -5224,6 +5243,7 @@ nil means don't delete them until `list-processes' is run.");
   defsubr (&Smsdos_long_file_names);
   defsubr (&Smsdos_downcase_filename);
   defsubr (&Smsdos_remember_default_colors);
+  defsubr (&Smsdos_set_mouse_buttons);
 }
 
 #endif /* MSDOS */
-- 
2.39.2