diff options
| author | David <171410+dmb2@users.noreply.github.com> | 2024-09-15 09:51:05 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-09-15 09:51:05 -0400 |
| commit | 9d67454dc96921905b80c42563acff47e3d23fcb (patch) | |
| tree | 58edfeb753cffce8a791beb68bafa4dfc940fcbe | |
| parent | f2691951b3340852638eac1ff87a034557535bfe (diff) | |
| parent | bc13b087e7499d00e978c640f392e99176811642 (diff) | |
Merge pull request #1203 from defaultxr/master
support `S-DEL` and `C-DEL` in `*input-map*`
| -rw-r--r-- | input.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -158,7 +158,9 @@ and complete the input by mutating it.")) (defvar *input-map* (let ((map (make-sparse-keymap))) (define-key map (kbd "DEL") 'input-delete-backward-char) + (define-key map (kbd "S-DEL") 'input-delete-backward-char) (define-key map (kbd "M-DEL") 'input-backward-kill-word) + (define-key map (kbd "C-DEL") 'input-backward-kill-word) (define-key map (kbd "C-d") 'input-delete-forward-char) (define-key map (kbd "M-d") 'input-forward-kill-word) (define-key map (kbd "Delete") 'input-delete-forward-char) |