From 346eede581dca3dc4fdc72310b0318a13295371c Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Tue, 12 Dec 2023 11:01:00 +0100 Subject: [PATCH] Keys are not equal when they have different codes and no value. --- keymap.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/keymap.lisp b/keymap.lisp index ba5f9c7..f7adcc4 100644 --- a/keymap.lisp +++ b/keymap.lisp @@ -71,8 +71,10 @@ specify a key-code binding." (and (or (and (not (zerop (key-code key1))) (= (key-code key1) (key-code key2))) - (string= (key-value key1) - (key-value key2))) + (and + (not (uiop:emptyp (key-value key1))) + (string= (key-value key1) + (key-value key2)))) (fset:equal? (key-modifiers key1) (key-modifiers key2)) (eq (key-status key1)