mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(server-buffer-done): Test of server-existing-buffer was backwards.

Browse source 
(server-existing-buffer): Doc fix.
This commit is contained in:
Richard M. Stallman 2001-11-11 17:56:23 +00:00
parent 721c26b86b
commit 4dd04714eb
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/server.el
View file

@ -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))