From a8c1f4f41e755b05ee7898144ff867d81fc83f79 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 17 Jun 1990 11:03:37 +0000 Subject: [PATCH] Allow TRANSLATE to be NULL in DEFINE-KEYSYM. --- clx/translate.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/clx/translate.lisp b/clx/translate.lisp index 18434e4ba..4f70cadb2 100644 --- a/clx/translate.lisp +++ b/clx/translate.lisp @@ -163,7 +163,7 @@ mask) (type (or null display) display) (type (or null keysym) lowercase) - (type (function (display card16 t) t) translate)) + (type (or null (function (display card16 t) t)) translate)) (flet ((merge-keysym-mappings (new old) ;; Merge new keysym-mapping with list of old mappings. ;; Ensure that the mapping with no modifiers or mask comes first. -- GitLab