[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e984993954: * lisp/term/x-win.el (x-device-class): Detect more ke
From: |
Po Lu |
Subject: |
master e984993954: * lisp/term/x-win.el (x-device-class): Detect more keyboards. |
Date: |
Fri, 8 Apr 2022 00:12:17 -0400 (EDT) |
branch: master
commit e9849939549010529e180ffb2509922f1bcc4843
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
* lisp/term/x-win.el (x-device-class): Detect more keyboards.
---
lisp/term/x-win.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index d10d8d1dbd..4c6fcc904c 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e984993954: * lisp/term/x-win.el (x-device-class): Detect more keyboards.,
Po Lu <=