Reduce per-key Qt logging

ober

62f62df4aacb6bdb46fe8fda293613a8f9b82f93

diff --git a/lib/jerboa-emacs/qt/app.sls b/lib/jerboa-emacs/qt/app.sls
index 87def65..11b97c8 100644
--- a/lib/jerboa-emacs/qt/app.sls
+++ b/lib/jerboa-emacs/qt/app.sls
@@ -1014,11 +1014,7 @@
                                           code
                                           mods
                                           text)])
-                                (when ks
-                                  (key-lossage-record! app ks)
-                                  (verbose-log! "KEY " ks " code="
-                                    (number->string code) " mods="
-                                    (number->string mods))))
+                                (when ks (key-lossage-record! app ks)))
                               (cond
                                 [*isearch-active*
                                  (let ([handled (isearch-handle-key!
@@ -1814,37 +1810,6 @@
                                                              (bitwise-and
                                                                mods
                                                                QT_MOD_ALT))])
-                                               (verbose-log! "CHORD-CHECK pending="
-                                                 (if *chord-pending-char*
-                                                     (string
-                                                       *chord-pending-char*)
-                                                     "#f")
-                                                 " key="
-                                                 (if (and is-printable
-                                                          no-ctrl
-                                                          no-alt)
-                                                     text
-                                                     "non-printable")
-                                                 " chord-start?="
-                                                 (if (and is-printable
-                                                          no-ctrl
-                                                          no-alt)
-                                                     (if (chord-start-char?
-                                                           (string-ref
-                                                             text
-                                                             0))
-                                                         "Y"
-                                                         "N")
-                                                     "N/A")
-                                                 " autorepeat="
-                                                 (if autorepeat? "Y" "N")
-                                                 " prefix="
-                                                 (if (null?
-                                                       (key-state-prefix-keys
-                                                         (app-state-key-state
-                                                           app)))
-                                                     "none"
-                                                     "active"))
                                                (cond
                                                  [(and *chord-pending-char*
                                                        (not *chord-timer-fired*))
diff --git a/src/jerboa-emacs/qt/app.ss b/src/jerboa-emacs/qt/app.ss
index 78eb9b0..04f955b 100644
--- a/src/jerboa-emacs/qt/app.ss
+++ b/src/jerboa-emacs/qt/app.ss
@@ -1089,9 +1089,7 @@
                 ;; Record keystroke in lossage ring
                 (let ((ks (qt-key-event->string code mods text)))
                   (when ks
-                    (key-lossage-record! app ks)
-                    (verbose-log! "KEY " ks " code=" (number->string code)
-                                  " mods=" (number->string mods))))
+                    (key-lossage-record! app ks)))
                 ;; Modal mode intercepts: isearch and query-replace
                 (cond
                  (*isearch-active*
@@ -1477,13 +1475,6 @@
                                            (> (char->integer (string-ref text 0)) 31)))
                         (no-ctrl (zero? (bitwise-and mods QT_MOD_CTRL)))
                         (no-alt  (zero? (bitwise-and mods QT_MOD_ALT))))
-                    (verbose-log! "CHORD-CHECK pending=" (if *chord-pending-char* (string *chord-pending-char*) "#f")
-                                  " key=" (if (and is-printable no-ctrl no-alt) text "non-printable")
-                                  " chord-start?=" (if (and is-printable no-ctrl no-alt)
-                                                     (if (chord-start-char? (string-ref text 0)) "Y" "N")
-                                                     "N/A")
-                                  " autorepeat=" (if autorepeat? "Y" "N")
-                                  " prefix=" (if (null? (key-state-prefix-keys (app-state-key-state app))) "none" "active"))
                   (cond
                     ;; Case 1: A chord is pending and a new key arrived
                     ((and *chord-pending-char* (not *chord-timer-fired*))