145 |
(setq minor-mode-alist (cons '(server-buffer-clients " Server") minor-mode-alist))) |
(setq minor-mode-alist (cons '(server-buffer-clients " Server") minor-mode-alist))) |
146 |
|
|
147 |
(defvar server-existing-buffer nil |
(defvar server-existing-buffer nil |
148 |
"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. |
149 |
|
This means that the server should not kill the buffer when you say you |
150 |
|
are done with it in the server. This variable is local in each buffer |
151 |
|
where it is set.") |
152 |
(make-variable-buffer-local 'server-existing-buffer) |
(make-variable-buffer-local 'server-existing-buffer) |
153 |
|
|
154 |
;; If a *server* buffer exists, |
;; If a *server* buffer exists, |
402 |
(unless for-killing |
(unless for-killing |
403 |
(when (and (not killed) |
(when (and (not killed) |
404 |
server-kill-new-buffers |
server-kill-new-buffers |
405 |
(save-excursion |
(with-current-buffer buffer |
406 |
(set-buffer buffer) |
(not server-existing-buffer))) |
|
server-existing-buffer)) |
|
407 |
(setq killed t) |
(setq killed t) |
408 |
(bury-buffer buffer) |
(bury-buffer buffer) |
409 |
(kill-buffer buffer)) |
(kill-buffer buffer)) |