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-done): Never kill buffer here.

Browse source 
(server-buffer-done): Do it here, if temp file.
This commit is contained in:
Richard M. Stallman 1994-05-19 05:58:21 +00:00
parent f70e9e1e64
commit c58bf9ae2a
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/server.el
View file

@ -251,7 +251,9 @@ as a suggestion for what to select next."
(save-excursion
(set-buffer buffer)
(setq server-buffer-clients nil))
(bury-buffer buffer)))
(if (server-temp-file-p buffer)
(kill-buffer buffer)
(bury-buffer buffer))))
next-buffer))
(defun server-temp-file-p (buffer)
@ -269,19 +271,17 @@ are considered temporary."
Then bury it, and return a suggested buffer to select next."
(let ((buffer (current-buffer)))
(if server-buffer-clients
(let (suggested-buffer)
(progn
(if (server-temp-file-p buffer)
;; For a temp file, save, and do make a non-numeric backup
;; (unless make-backup-files is nil).
(let ((version-control nil)
(buffer-backed-up nil))
(save-buffer)
(kill-buffer buffer)
(setq suggested-buffer (current-buffer)))
(save-buffer))
(if (and (buffer-modified-p)
(y-or-n-p (concat "Save file " buffer-file-name "? ")))
(save-buffer buffer)))
(or (server-buffer-done buffer) suggested-buffer)))))
(server-buffer-done buffer)))))
;; If a server buffer is killed, release its client.
;; I'm not sure this is really a good idea--do you want the client