From 50352a59b5f2634c054b7aa5e6741321847b6561 Mon Sep 17 00:00:00 2001 From: "modula t. worm" Date: Sun, 5 Nov 2023 06:18:01 -0600 Subject: [PATCH] Fix `make-hash-table` for `*context-menu-commands*` Since context menu labels are strings, `:test` should be `equal` rather than the default `eql`. --- source/foreign-interface.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/foreign-interface.lisp b/source/foreign-interface.lisp index a62957dc2d7..b694f04ac17 100644 --- a/source/foreign-interface.lisp +++ b/source/foreign-interface.lisp @@ -384,7 +384,7 @@ Return the text cut." (echo-warning "Redoing edits is not yet implemented for this renderer.")) ;; TODO: Move to alists for arbitrary number of params? -(defvar *context-menu-commands* (make-hash-table) +(defvar *context-menu-commands* (make-hash-table :test #'equal) "A hash table from labels to context menu commands. Once a context menu appears, those commands will be added to it as actions with the labels they have as hash keys.")