diff -u -r src-orig/opal/x.lisp src/opal/x.lisp
--- src-orig/opal/x.lisp	Thu Feb 24 19:05:57 2000
+++ src/opal/x.lisp	Mon Oct 29 20:08:35 2001
@@ -9,6 +9,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; CHANGE LOG:
+;;; 29-OCT-2001 Edi Weitz   - Ignore mouse buttons > 3
+;;;                           in X-EVENT-HANDLER
 ;;; 17-DEC-1999 Fred Gilham - Fix problem where pixmap format doesn't match
 ;;;                           valid pixmap formats in displays where `depth'
 ;;;                           and `bits-per-pixel' values differ
@@ -1204,20 +1206,22 @@
 				  event-window) x y state code time)))
      (:BUTTON-PRESS
       (event-window x y state code time event-key)
-      (event-handler-debug :BUTTON-PRESS event-window x y state code time
-			   event-key)
-      (unless ignore-keys
-	(interactors::do-button-press (x-window-from-drawable root-window
-							      event-window)
-	  x y state code time event-key)))
+      (when (< code 4)
+        (event-handler-debug :BUTTON-PRESS event-window x y state code time
+                             event-key)
+        (unless ignore-keys
+          (interactors::do-button-press (x-window-from-drawable root-window
+                                                                event-window)
+            x y state code time event-key))))
      (:BUTTON-RELEASE
       (event-window x y state code time event-key)
-      (event-handler-debug :BUTTON-RELEASE event-window x y state code time
-			   event-key)
-      (unless ignore-keys
-	(interactors::do-button-release (x-window-from-drawable root-window
-								event-window)
-	  x y state code time event-key)))
+      (when (< code 4)
+        (event-handler-debug :BUTTON-RELEASE event-window x y state code time
+                             event-key)
+        (unless ignore-keys
+          (interactors::do-button-release (x-window-from-drawable root-window
+                                                                  event-window)
+            x y state code time event-key))))
      (:MOTION-NOTIFY
       (event-window x y)
       (event-handler-debug :MOTION-NOTIFY event-window x y)