Skip to content
Snippets Groups Projects
Commit 518c8a1c authored by wlott's avatar wlott
Browse files

This commit was generated by cvs2svn to compensate for changes in r2690,

which included commits to RCS files with non-trunk default branches.
parents 0207cf34 5f3d5cbf
No related branches found
No related tags found
No related merge requests found
...@@ -146,16 +146,12 @@ ...@@ -146,16 +146,12 @@
(logior new-bits (key-event-modifier-mask (cdr map)))))))) (logior new-bits (key-event-modifier-mask (cdr map))))))))
(let ((keysym (xlib:keycode->keysym display scan-code (if shiftp 1 0)))) (let ((keysym (xlib:keycode->keysym display scan-code (if shiftp 1 0))))
(cond ((null (keysym-names keysym)) (cond ((null (keysym-names keysym))
(if (<= 65505 keysym 65518) ;modifier keys. nil)
nil
(error "Undefined keysym ~S, describe EXT:DEFINE-KEYSYM."
keysym)))
((and (not shiftp) lockp (<= 97 keysym 122)) ; small-alpha-char-p ((and (not shiftp) lockp (<= 97 keysym 122)) ; small-alpha-char-p
(let ((keysym (xlib:keycode->keysym display scan-code 1))) (let ((keysym (xlib:keycode->keysym display scan-code 1)))
(unless (keysym-names keysym) (if (keysym-names keysym)
(error "Undefined keysym ~S, describe EXT:DEFINE-KEYSYM." (make-key-event keysym new-bits)
keysym)) nil)))
(make-key-event keysym new-bits)))
(t (t
(make-key-event keysym new-bits)))))) (make-key-event keysym new-bits))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment