emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 598d1a2aa3: * lisp/term/x-win.el (x-device-class): Detect "USB US


From: Po Lu
Subject: master 598d1a2aa3: * lisp/term/x-win.el (x-device-class): Detect "USB USB Keykoard"s.
Date: Thu, 7 Apr 2022 23:05:02 -0400 (EDT)

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

    * lisp/term/x-win.el (x-device-class): Detect "USB USB Keykoard"s.
---
 lisp/term/x-win.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]