From d5f01219234d05f29b63f322dccc81a633a3774e Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 2 Oct 2020 18:26:59 +0200 Subject: [PATCH] - fixed keymap of messages window when switching focus or opening a toot. --- src/message-window.lisp | 6 ++++-- src/ui-goodies.lisp | 2 ++ 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/message-window.lisp b/src/message-window.lisp index 2cb465e..328ed20 100644 --- a/src/message-window.lisp +++ b/src/message-window.lisp @@ -42,8 +42,10 @@ keybindings:*chat-message-keymap*)) (defun prepare-for-display-status-mode (window) - (setf (keybindings window) - keybindings:*message-keymap*)) + (when (not (or (display-gemini-text-p window) + (display-chat-p window))) + (setf (keybindings window) + keybindings:*message-keymap*))) (defmethod (setf source-text) (new-text (object message-window)) (setf (slot-value object 'source-text) new-text) diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index f2102a0..e4a05cc 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -280,6 +280,8 @@ Metadata includes: (defun thread-open-selected-message () "Open selected message" + (setf (windows:keybindings specials:*message-window*) + keybindings:*message-keymap*) (thread-window:open-message *thread-window*)) (defun thread-mark-delete-selected-message ()