From 4dd04714eb04f1d567ef6449bdc43fd6ef3b80da Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 11 Nov 2001 17:56:23 +0000 Subject: [PATCH] (server-buffer-done): Test of server-existing-buffer was backwards. (server-existing-buffer): Doc fix. --- lisp/server.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/server.el b/lisp/server.el index 8683f02d139..327453bbc8e 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -145,7 +145,10 @@ this way." (setq minor-mode-alist (cons '(server-buffer-clients " Server") minor-mode-alist))) (defvar server-existing-buffer nil - "Non-nil means a server buffer existed before visiting a file.") + "Non-nil means a buffer existed before the Emacs server was asked visit it. +This means that the server should not kill the buffer when you say you +are done with it in the server. This variable is local in each buffer +where it is set.") (make-variable-buffer-local 'server-existing-buffer) ;; If a *server* buffer exists, @@ -399,9 +402,8 @@ or nil. KILLED is t if we killed BUFFER (unless for-killing (when (and (not killed) server-kill-new-buffers - (save-excursion - (set-buffer buffer) - server-existing-buffer)) + (with-current-buffer buffer + (not server-existing-buffer))) (setq killed t) (bury-buffer buffer) (kill-buffer buffer)) -- 2.39.2