Fix kkp not being enabled in the first tty frame

This commit is contained in:
Alexander Rosenberg 2024-11-03 07:03:25 -08:00
parent 4dc28f50d7
commit 2ef42f86dc
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

View File

@ -369,7 +369,6 @@ directory. Otherwise, run `find-file' on that file."
;; kitty keyboard protocol ;; kitty keyboard protocol
(use-package kkp (use-package kkp
:bind ("C-q" . my/quoted-insert)
:config :config
(global-kkp-mode 1) (global-kkp-mode 1)
(defun my/-kkp-after-terminal-setup (&rest _) (defun my/-kkp-after-terminal-setup (&rest _)
@ -394,7 +393,7 @@ directory. Otherwise, run `find-file' on that file."
(while (> arg 0) (while (> arg 0)
(insert-and-inherit char) (insert-and-inherit char)
(setq arg (1- arg)))))) (setq arg (1- arg))))))
(keymap-global-set "C-q" #'my/quoted-insert)
(defun my/-kkp-fix-save-some-buffers (oldfun &optional arg pred) (defun my/-kkp-fix-save-some-buffers (oldfun &optional arg pred)
"Fix `save-some-buffers' when used in a terminal with kkp enabled." "Fix `save-some-buffers' when used in a terminal with kkp enabled."
(let ((status (kkp--terminal-has-active-kkp-p))) (let ((status (kkp--terminal-has-active-kkp-p)))