Merge pull request #1492 from theangelperalta/frontend/re-enable-supe…

…r-key-modifier Re-enable super key support in SDL2
lem-project · Aug 20, 2024 · a8f4389 · a8f4389
2 parents 7df902d + 22487ea
commit a8f4389
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/frontends/sdl2/keyboard.lisp b/frontends/sdl2/keyboard.lisp
@@ -260,7 +260,7 @@
     (loop :for c :across text
           :do (let ((key (make-key :ctrl (modifier-ctrl *modifier*)
                                    :meta (modifier-meta *modifier*)
-                                   ;; :super (modifier-super *modifier*)
+                                   :super (modifier-super *modifier*)
                                    :shift nil
                                    :sym (convert-to-sym (char-code c)))))
                 (send-key-event key)))))
@@ -275,11 +275,12 @@
                    (or (not text-input-p)
                        (modifier-ctrl modifier)
                        (modifier-meta modifier)
+                       (modifier-super modifier)
                        (< 256 code)))
           (let ((key (make-key-with-shift-careful :shift (modifier-shift modifier)
                                                   :ctrl (modifier-ctrl modifier)
                                                   :meta (modifier-meta modifier)
-                                                  ;; :super (modifier-super modifier)
+                                                  :super (modifier-super modifier)
                                                   :sym sym)))
             (send-key-event key)))))))