Mercurial > emacs

changeset 40915:e26c1e76e1ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(server-buffer-done): Test of server-existing-buffer was backwards. (server-existing-buffer): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Sun, 11 Nov 2001 17:56:23 +0000
parents a56e5848713b
children 4a749a84888c
files lisp/server.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/server.el	Sun Nov 11 14:02:54 2001 +0000
+++ b/lisp/server.el	Sun Nov 11 17:56:23 2001 +0000
@@ -145,7 +145,10 @@
     (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 @@
 	    (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))