Attempt to fix kitty delete vs backspace

1 files changed, 6 insertions, 2 deletions

diff --git a/init.el b/init.el
index 8bb3b16..739b9b0 100644
--- a/init.el
+++ b/init.el
@@ -89,8 +89,12 @@
   (xterm-kitty-add)
   (when xterm-kitty-in-use
     (defun ravi/get-rid-of-xterm-key-translations ()
-      (mapcar (lambda (k) (unbind-key (vector k) local-function-key-map))
-              '(tab delete return escape)))
+      (mapcar (lambda (k) (define-key local-function-key-map (vector k) nil))
+              '(tab delete return escape))
+      ;; Manually disambiguate between DEL=backspace and delete keys
+      (bind-key "C-DEL" #'backward-kill-word)
+      (bind-key "C-<delete>" #'kill-word)
+      (bind-key "<delete>" #'delete-forward-char))
     (add-hook 'terminal-init-xterm-hook 'ravi/get-rid-of-xterm-key-translations))
   :ensure nil
   :load-path (lambda () (ravi/emacs-file "lisp")))