From 2ce994de124b7609089923090201cbb77fa035bc Mon Sep 17 00:00:00 2001 From: Jim Porter Date: Wed, 2 Nov 2022 09:22:43 -0700 Subject: [PATCH] [WIP] Try using a keymap for server-mode --- lisp/server.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/lisp/server.el b/lisp/server.el index 90d97c1538..c8f90720f7 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -796,6 +796,18 @@ server-running-p t) (file-error nil))) +(defvar-keymap server-keymap + " " #'server-delete-frame + ;; FIXME: Add 'C-x #' to this keymap instead of doing it globally? + ) + +(defun server-delete-frame () + "FIXME: This function is just a quick test implementation to +override `delete-frame'." + (interactive) + (save-some-buffers) + (delete-frame)) + ;;;###autoload (define-minor-mode server-mode "Toggle Server mode. @@ -805,6 +817,11 @@ server-mode `server-start' for details." :global t :version "22.1" + ;; FIXME: To start a server, you can call `server-mode' or + ;; `server-start'. The latter doesn't activate the minor mode. To + ;; use this keymap, we'd need to make sure we always activate the + ;; minor mode. + :keymap server-keymap ;; Fixme: Should this check for an existing server socket and do ;; nothing if there is one (for multiple Emacs sessions)? (server-start (not server-mode))) -- 2.25.1