comparison lisp/server.el @ 83251:de637975e99a

On C-x C-c, restrict `save-some-buffers' to the client's buffers. (Reported by Han Boetes.) * lisp/server.el (server-kill-emacs-query-function): Fix typo in docs. (server-save-buffers-kill-display): If emacsclient was started with a list of filenames to edit, then offer to save only these buffers. git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-291

83250:89ac10c67e45

	      (setq res nil)))))
      (yes-or-no-p (format "Buffer `%s' still has clients; kill it? "
			   (buffer-name (current-buffer))))))

(defun server-kill-emacs-query-function ()
  "Ask before exiting Emacs it has are live clients."
  (or (not server-clients)
      (let (live-client)
	(dolist (client server-clients live-client)
	  (if (memq t (mapcar 'buffer-live-p (server-client-get
					      client 'buffers)))

(defun server-save-buffers-kill-display (&optional arg)
  "Offer to save each buffer, then kill the current connection.
If the current frame has no client, kill Emacs itself.

With prefix arg, silently save all file-visiting buffers, then kill."
  (interactive "P")
  (let ((proc (frame-parameter (selected-frame) 'client)))
    (if (and proc)
	(progn
	  (save-some-buffers arg t)
	  (server-delete-client proc))
      (save-buffers-kill-emacs))))

(global-set-key "\C-x#" 'server-edit)

83251:de637975e99a

	      (setq res nil)))))
      (yes-or-no-p (format "Buffer `%s' still has clients; kill it? "
			   (buffer-name (current-buffer))))))

(defun server-kill-emacs-query-function ()
  "Ask before exiting Emacs it has live clients."
  (or (not server-clients)
      (let (live-client)
	(dolist (client server-clients live-client)
	  (if (memq t (mapcar 'buffer-live-p (server-client-get
					      client 'buffers)))

(defun server-save-buffers-kill-display (&optional arg)
  "Offer to save each buffer, then kill the current connection.
If the current frame has no client, kill Emacs itself.

With prefix arg, silently save all file-visiting buffers, then kill.

If emacsclient was started with a list of filenames to edit, then
only these files will be asked to be saved."
  (interactive "P")
  (let ((proc (frame-parameter (selected-frame) 'client)))
    (if proc
	(let ((buffers (server-client-get proc 'buffers)))
	  ;; If client is bufferless, emulate a normal Emacs session
	  ;; exit and offer to save all buffers.  Otherwise, offer to
	  ;; save only the buffers belonging to the client.
	  (save-some-buffers arg
			     (if buffers
				 (lambda () (memq (current-buffer) buffers))
			       t))
	  (server-delete-client proc))
      (save-buffers-kill-emacs))))

(global-set-key "\C-x#" 'server-edit)