From: Po Lu <luangruo@yahoo.com>
Date: Fri, 8 Apr 2022 04:11:24 +0000 (+0800)
Subject: * lisp/term/x-win.el (x-device-class): Detect more keyboards.
X-Git-Tag: emacs-29.0.90~1931^2~709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9849939549010529e180ffb2509922f1bcc4843;p=emacs.git

* 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 d10d8d1dbdc..4c6fcc904c0 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)