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

- implemented cut line from point (using "^K") in command window.

This commit is contained in:
cage 2021-07-23 21:44:05 +02:00
parent d1445f42de
commit 90d7713c65
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/command-window.lisp
View File

@ -467,7 +467,8 @@ command line."
(info-message info-message)
(prompt prompt)
(history-position history-position)
(suggestions-win suggestions-win)) command-window
(suggestions-win suggestions-win)
(point-position point-position)) command-window
(flet ((set-history (new-id new-input)
(when (and new-id
new-input)
@ -478,6 +479,8 @@ command line."
(set-history-most-recent command-window prompt)))
(remove-messages command-window)
(cond
((string= (decode-key-event event) "^K")
(setf command-line (safe-subseq command-line 0 (no-prompt-point-pos command-window))))
((eq :alt-left event)
(move-suggestion-page-left command-window))
((eq :alt-right event)