* lisp/term/x-win.el (x-device-class): Detect "USB USB Keykoard"s.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index ac8b1f5df328372567b4fe49573dfb4f8d987d7a..d10d8d1dbdcd9a7c4b1bf5870fa3484e5290c9ca 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1608,7 +1608,10 @@ Users should not call this function; see `device-class' instead."
           (string-match-p "pointer" downcased-name))
       'mouse)
      ((string-match-p "cursor" downcased-name) 'puck)
-     ((string-match-p "keyboard" downcased-name) 'keyboard)
+     ((or (string-match-p "keyboard" downcased-name)
+          ;; One of my cheap keyboards is really named this...
+          (string= name "USB USB Keykoard"))
+      'keyboard)
      ((string-match-p "button" downcased-name) 'power-button)
      ((string-match-p "touchpad" downcased-name) 'touchpad)
      ((or (string-match-p "midi" downcased-name)