Lib: Fix Dom_html.Keyboard_code.of_event (#1878)

For the standard location (0) we were ignoring the `code` property of
the keyboard event and using the deprecated `keyCode` property instead.

Co-authored-by: Ty Overby <ty@pre-alpha.com>

Author: vouillon

CHANGES.md

@@ -18,9 +18,11 @@
 * Compiler: fix stack overflow issues with double translation (#1869)
 * Compiler: minifier fix (#1867)
 * Compiler: fix assert failure with double translation (#1870)
+* Lib: fix Dom_html.Keyboard_code.of_event (#1878)
 * Runtime: fix Int64.of_string overflow check (#1874)
 * Runtime: fix caml_string_concat when not using JS strings (#1874)
 
+
 # 6.0.1 (2025-02-07) - Lille
 
 ## Features/Changes

lib/js_of_ocaml/dom_html.ml

@@ -3383,7 +3383,7 @@ module Keyboard_code = struct
     | 1 -> run_next (get_key_code evt) try_key_code_left
     | 2 -> run_next (get_key_code evt) try_key_code_right
     | 3 -> run_next (get_key_code evt) try_key_code_numpad
-    | _ -> make_unidentified
+    | _ -> fun v -> v
 
   let ( |> ) x f = f x