cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- close (if exists) the gopher window before opening a post.

This commit is contained in:
cage 2024-10-13 12:58:45 +02:00
parent efed58ac04
commit efed27fc64
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ui-goodies.lisp
View File

@ -361,6 +361,8 @@ Metadata includes:
:window *message-window*))) :window *message-window*)))
(push-event new-title-event) (push-event new-title-event)
(with-enqueued-process () (with-enqueued-process ()
(when (gopher-window:gopher-window-p specials:*gopher-window*)
(close-window-and-return-to-threads specials:*gopher-window*))
(setf (windows:keybindings specials:*message-window*) (setf (windows:keybindings specials:*message-window*)
keybindings:*message-keymap*) keybindings:*message-keymap*)
(thread-window:open-message *thread-window*)))) (thread-window:open-message *thread-window*))))