From ad0ba11142932485a5959668d6ac41d229b1dc6a Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Tue, 24 Feb 1998 12:00:56 +0000 Subject: [PATCH] From Fred Gilham, pressing certain keys (eg control or function) would cause the game to blow up. This change makes it behave better. --- contrib/games/feebs/feebs.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/contrib/games/feebs/feebs.lisp b/contrib/games/feebs/feebs.lisp index 92efbaf0e..afa5a2b7c 100644 --- a/contrib/games/feebs/feebs.lisp +++ b/contrib/games/feebs/feebs.lisp @@ -1015,6 +1015,7 @@ (defconstant blow-away-feebs-character #\q) (defconstant single-step-feebs-character #\s) (defconstant auto-mode-feebs-character #\a) +(defconstant feebs-noop-character #\z) ;;; Create an object set of windows to receive certain events from X. @@ -1062,7 +1063,12 @@ (defun translate-character (scan-code bits) - (ext:key-event-char (ext:translate-key-event *display* scan-code bits))) + (let ((key-event (ext:translate-key-event *display* scan-code bits)) + (retval feebs-noop-character)) + (if key-event + (let ((char (ext:key-event-char key-event))) + (if char (setf retval char)))) + retval)) ;;; Check which key was pressed and do the appropriate thing. -- GitLab