Make sure typing non-printing characters in the minibuffer won't

breakt it
mwitmer · Feb 3, 2014 · f3a6d09 · f3a6d09
1 parent 82ae11f
commit f3a6d09
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/module/guile-wm/module/minibuffer.scm b/module/guile-wm/module/minibuffer.scm
@@ -112,7 +112,9 @@
    (do-prompt-keymap
     (prompt-keymap-with-default
      minibuffer-keymap
-     (lambda (key data) (point-insert data (sym->printable key))))
+     (lambda (key data)
+       (or (and=> (sym->printable key) (lambda (p) (point-insert data p)))
+           data)))
     (keystroke-listen! minibuffer-window)
     continue-minibuffer confirm-minibuffer cancel-minibuffer
     (empty-text-edit-data))))