diff options
| author | Po Lu | 2022-04-08 11:03:27 +0800 |
|---|---|---|
| committer | Po Lu | 2022-04-08 11:03:27 +0800 |
| commit | 598d1a2aa3ffdbc6de3e28797faf3ff68e0475f9 (patch) | |
| tree | 74905720eb33bf4b759a855ffa19614e1b809561 | |
| parent | 1a1c5a6884a60ef2ffa98f3ee4af793eac985f80 (diff) | |
| download | emacs-598d1a2aa3ffdbc6de3e28797faf3ff68e0475f9.tar.gz emacs-598d1a2aa3ffdbc6de3e28797faf3ff68e0475f9.zip | |
* lisp/term/x-win.el (x-device-class): Detect "USB USB Keykoard"s.
| -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." | |||
| 1608 | (string-match-p "pointer" downcased-name)) | 1608 | (string-match-p "pointer" downcased-name)) |
| 1609 | 'mouse) | 1609 | 'mouse) |
| 1610 | ((string-match-p "cursor" downcased-name) 'puck) | 1610 | ((string-match-p "cursor" downcased-name) 'puck) |
| 1611 | ((string-match-p "keyboard" downcased-name) 'keyboard) | 1611 | ((or (string-match-p "keyboard" downcased-name) |
| 1612 | ;; One of my cheap keyboards is really named this... | ||
| 1613 | (string= name "USB USB Keykoard")) | ||
| 1614 | 'keyboard) | ||
| 1612 | ((string-match-p "button" downcased-name) 'power-button) | 1615 | ((string-match-p "button" downcased-name) 'power-button) |
| 1613 | ((string-match-p "touchpad" downcased-name) 'touchpad) | 1616 | ((string-match-p "touchpad" downcased-name) 'touchpad) |
| 1614 | ((or (string-match-p "midi" downcased-name) | 1617 | ((or (string-match-p "midi" downcased-name) |