* lisp/term/x-win.el (x-device-class): Detect more keyboards.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index d10d8d1dbdcd9a7c4b1bf5870fa3484e5290c9ca..4c6fcc904c02f7cdcea9fb64cc0b214b85f2a77f 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1616,7 +1616,11 @@ Users should not call this function; see `device-class' instead."
      ((string-match-p "touchpad" downcased-name) 'touchpad)
      ((or (string-match-p "midi" downcased-name)
           (string-match-p "piano" downcased-name))
-      'piano))))
+      'piano)
+     ((or (string-match-p "wskbd" downcased-name) ; NetBSD/OpenBSD
+          (and (string-match-p "/dev" downcased-name)
+               (string-match-p "kbd" downcased-name)))
+      'keyboard))))
 
 (setq x-dnd-movement-function #'x-dnd-movement)
 (setq x-dnd-unsupported-drop-function #'x-dnd-handle-unsupported-drop)