cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- prevented crash when hitting backspace after pressing a key that not 

belong to any key-chord with the suggestion window not visible.
This commit is contained in:
cage 2023-05-21 10:55:12 +02:00
parent 34407087ef
commit 5b261cd608
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/command-window.lisp
View File

@ -260,10 +260,12 @@ be either `:keybinding' or `:string'. the former for key command the latter for
((eq :backspace decoded-event) ; delete last command or char
(let ((command-before-last (safe-all-but-last-elt command-line)))
(setf command-line nil)
(if command-before-last
(cond
(command-before-last
(loop for i in command-before-last do
(enqueue-command command-window i nil))
(win-hide (suggestions-win command-window)))))
(enqueue-command command-window i nil)))
((suggestions-win command-window)
(win-hide (suggestions-win command-window))))))
(t
(enqueue-command command-window event t))))))