A new file for XLIB (xlib-xkeysymdb.el) and a patch for XWEM to use it.
With this patch users with fancy ,,multimedia keyboards'' can use their
extra keys.
It is written by Zajcev Evgeny, tested by me. :-)
xlib-keysymdb.el
Description: application/emacs-lisp
diff -u xwem/ChangeLog xwem-lg/ChangeLog
--- xwem/ChangeLog 2004-12-05 22:50:14.000000000 +0100
+++ xwem-lg/ChangeLog 2004-12-07 19:25:02.000000000 +0100
@@ -1,3 +1,9 @@
+2004-12-07 Zajcev Evgeny <zevlg@xxxxxxxxx>
+
+ * lisp/xwem-keyboard.el (xwem-kbd-xksym->emacs):
+ (xwem-kbd-emacs->xksym): support for all the special X keysyms like
+ multimedia keys in /usr/X11R6/lib/X11/XKeysymDB.
+
2004-12-06 Steve Youngs <steve@xxxxxxxxxxxxx>
From Richard Klinda <ignotus@xxxxxxxxxxx>
diff -u xwem/xwem-keyboard.el xwem-lg/xwem-keyboard.el
--- xwem/xwem-keyboard.el 2004-12-05 06:52:29.000000000 +0100
+++ xwem-lg/xwem-keyboard.el 2004-12-07 19:14:27.000000000 +0100
@@ -38,6 +38,7 @@
(require 'xlib-xlib)
(require 'xlib-xtest)
+(require 'xlib-xkeysymdb)
(require 'xwem-load)
(require 'xwem-misc)
@@ -528,7 +529,8 @@
((= ksym 0) nil)
- (t (XCharacter ksym)))) ;nil or proper character
+ (t (or (X-XKeysymDB-keysym->sym ksym)
+ (XCharacter ksym))))) ;nil or proper character
(defun xwem-kbd-emacs->xksym (ksym)
"Convert back from Emacs key symbol KSYM to proper X key symbol."
@@ -567,14 +569,15 @@
((string= symname "button5") (list X-XButton5))
;; Functional keys
- ((string-match "[fF]\\([0-9]+\\)" symname)
+ ((string-match "^[fF]\\([0-9]+\\)$" symname)
(symbol-value
(intern
(concat "XK-F"
(substring symname (match-beginning 1)
(match-end 1))))))
- (t (Xforcenum (string-to-char osymname))))))
+ (t (or (X-XKeysymDB-sym->keysym ksym)
+ (Xforcenum (string-to-char osymname)))))))
((characterp ksym) (Xforcenum ksym)) ;Should not be there
--
...sutongi tti olleh
What a person wills and not what they know determines their
worth or unworth, power or impotence, happiness or unhappiness.
|