$NetBSD: patch-ac,v 1.1 2006/04/19 13:13:05 tonio Exp $

--- laser_pointer.ml.orig	2004-09-15 18:37:55.000000000 +0200
+++ laser_pointer.ml
@@ -144,7 +144,7 @@ let rec treat_laser_event ptr q =
    | { mouse_x = x; mouse_y = y;
        button = btn;
        keypressed = kp;
-       key = c; } as ev ->
+       key = c; } ->
        show_pointer ptr x y;
        if kp then begin
          match c with