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

[Po Lu]

branch: master
commit e9849939549010529e180ffb2509922f1bcc4843
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    * lisp/term/x-win.el (x-device-class): Detect more keyboards.
---
 lisp/term/x-win.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index d10d8d1dbd..4c6fcc904c 100644
--- 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)