Fix quitting application from the Deskbar on Haiku

* lisp/term/haiku-win.el (handle-save-session): Kill Emacs
afterwards.

diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index 51a6c3c501e5cac21699e56fe8974d90a5a13d39..403c737c1145b75f1d55b796520e36daffc29081 100644 (file)
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -378,7 +378,10 @@ take effect on menu items until the menu bar is updated again."
   (let ((cancel-shutdown t))
     (unwind-protect
         (setq cancel-shutdown (emacs-session-save))
-      (haiku-save-session-reply (not cancel-shutdown)))))
+      (haiku-save-session-reply (not cancel-shutdown)))
+    ;; The App Server will kill Emacs after receiving the reply, but
+    ;; the Deskbar will not, so kill ourself here.
+    (unless cancel-shutdown (kill-emacs))))
 
 (provide 'haiku-win)
 (provide 'term/haiku-win)