diff options
author | Po Lu <luangruo@yahoo.com> | 2022-04-27 05:18:50 +0000 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2022-04-27 05:19:15 +0000 |
commit | 0bea75c95a7e59c50be437956916cc0835655575 (patch) | |
tree | 0540633d8e9fdce6428c99755a366dc094327c7a /lisp/term/x-win.el | |
parent | f1e11deca641c3fd6d571afb6b8618143a16d226 (diff) | |
download | emacs-0bea75c95a7e59c50be437956916cc0835655575.tar.gz |
Add simple session management support to Haiku
* lisp/term/common-win.el (emacs-save-session-functions): Move
from x-win.el to common-win.el.
* lisp/term/haiku-win.el (haiku-save-session-reply)
(emacs-session-save, handle-save-session): New functions.
* lisp/term/x-win.el (emacs-save-session-functions): Delete.
* src/haiku_font_support.cc (font_style_to_flags):
* src/haiku_support.h (enum haiku_font_weight): Turn weight
macros into enum.
(struct haiku_font_pattern): Likewise.
(struct haiku_session_manager_reply): New struct.
* src/haiku_io.c (haiku_io_init): Create sm port.
* src/haiku_support.cc (QuitRequested): Wait for reply from sm
port.
* src/haikufns.c (Fhaiku_save_session_reply): New function.
(syms_of_haikufns): Define new subr.
* src/haikuterm.c (haiku_read_socket): Send session management
events.
(haiku_term_init): Check new port.
Diffstat (limited to 'lisp/term/x-win.el')
-rw-r--r-- | lisp/term/x-win.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 4c6fcc904c0..ca38a0a8c92 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -109,14 +109,6 @@ (setq x-session-previous-id (car x-invocation-args) x-invocation-args (cdr x-invocation-args))) -(defvar emacs-save-session-functions nil - "Special hook run when a save-session event occurs. -The functions do not get any argument. -Functions can return non-nil to inform the session manager that the -window system shutdown should be aborted. - -See also `emacs-session-save'.") - (defun emacs-session-filename (session-id) "Construct a filename to save the session in based on SESSION-ID. Return a filename in `user-emacs-directory', unless the session file |