[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/server.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/server.el |
Date: |
Sun, 11 Nov 2001 12:56:23 -0500 |
Index: emacs/lisp/server.el
diff -u emacs/lisp/server.el:1.74 emacs/lisp/server.el:1.75
--- emacs/lisp/server.el:1.74 Fri Sep 7 07:35:49 2001
+++ emacs/lisp/server.el Sun Nov 11 12:56:23 2001
@@ -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))
- [Emacs-diffs] Changes to emacs/lisp/server.el,
Richard M. Stallman <=