diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-04-08 11:03:27 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-04-08 11:03:27 +0800 |
| commit | 598d1a2aa3ffdbc6de3e28797faf3ff68e0475f9 (patch) | |
| tree | 74905720eb33bf4b759a855ffa19614e1b809561 /lisp/term/x-win.el | |
| parent | 1a1c5a6884a60ef2ffa98f3ee4af793eac985f80 (diff) | |
| download | emacs-598d1a2aa3ffdbc6de3e28797faf3ff68e0475f9.tar.gz emacs-598d1a2aa3ffdbc6de3e28797faf3ff68e0475f9.tar.bz2 emacs-598d1a2aa3ffdbc6de3e28797faf3ff68e0475f9.zip | |
* lisp/term/x-win.el (x-device-class): Detect "USB USB Keykoard"s.
Diffstat (limited to 'lisp/term/x-win.el')
| -rw-r--r-- | lisp/term/x-win.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index ac8b1f5df32..d10d8d1dbdc 100644 --- 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) |