Use test fun equal for updating key lists

6 years ago · 6b0e2f05be
parent 9858e1e563
commit 6b0e2f05be
1 changed files with 1 additions and 1 deletions
--- a/eaf.el
+++ b/eaf.el
@ -696,7 +696,7 @@ of `eaf--buffer-app-name' inside the EAF buffer."
  `(map-put ,eaf-app-keybinding ,key
            ,(if (string-match "_" (symbol-name command))
                 (symbol-name command)
-               `(quote ,command))))
+               `(quote ,command)) #'equal))

 (defun eaf-focus-buffer (msg)
  (let* ((coordinate-list (split-string msg ","))