diff options
| author | Lukas Fürmetz <fuermetz@mailbox.org> | 2019-07-31 15:48:20 +0200 |
|---|---|---|
| committer | Lukas Fürmetz <fuermetz@mailbox.org> | 2019-07-31 15:48:20 +0200 |
| commit | eceae190ec3aef6a97fc5daed49c6016daf457f2 (patch) | |
| tree | e778327a32210a38b5ea59183da00909ffca54bf /vterm.el | |
| parent | 0632e6874252aad7501aeba86c9d3b80ab7938c2 (diff) | |
Revert "Add support for backtab"
This reverts commit ecd362b5d92f62626b18258eeef2b2a04706c86e.
This breaks C-a, C-e, ...
Diffstat (limited to 'vterm.el')
| -rw-r--r-- | vterm.el | 14 |
1 files changed, 3 insertions, 11 deletions
@@ -244,7 +244,6 @@ If nil, never delay") ;; Keybindings (define-key vterm-mode-map [tab] #'vterm--self-insert) -(define-key vterm-mode-map [backtab] #'vterm--self-insert) (define-key vterm-mode-map [backspace] #'vterm--self-insert) (define-key vterm-mode-map [M-backspace] #'vterm--self-insert) (define-key vterm-mode-map [return] #'vterm--self-insert) @@ -276,15 +275,6 @@ If nil, never delay") unless (member key vterm-keymap-exceptions) collect key)))) -(defun vterm-event-basic-type (event) - "Same as `event-basic-type', except the downcasing of EVENT." - (if (consp event) - (setq event (car event))) - (if (symbolp event) - (car (get event 'event-symbol-elements)) - (let* ((base (logand event (1- ?\A-\^@)))) - (if (< base 32) (logior base 64) base)))) - (defun vterm--self-insert () "Sends invoking key to libvterm." (interactive) @@ -293,7 +283,7 @@ If nil, never delay") (shift (memq 'shift modifiers)) (meta (memq 'meta modifiers)) (ctrl (memq 'control modifiers))) - (when-let ((key (key-description (vector (vterm-event-basic-type last-input-event))))) + (when-let ((key (key-description (vector (event-basic-type last-input-event))))) (vterm-send-key key shift meta ctrl))))) (defun vterm-send-key (key &optional shift meta ctrl) @@ -301,6 +291,8 @@ If nil, never delay") (when vterm--term (let ((inhibit-redisplay t) (inhibit-read-only t)) + (when (and shift (not meta) (not ctrl)) + (setq key (upcase key))) (vterm--update vterm--term key shift meta ctrl)))) (defun vterm-send-ctrl-c () |