(save-buffers-kill-terminal): Args for

server-save-buffers-kill-terminal changed.

diff --git a/lisp/files.el b/lisp/files.el
index 6e95dfc34c612b472d017baea3631956f5bdf5e8..e846d5d2ba4a2f6377c02365a88cd838191d1169 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5731,12 +5731,9 @@ 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))
-       (frame (selected-frame)))
-    (if (null proc)
-       (save-buffers-kill-emacs)
-      (server-save-buffers-kill-terminal proc arg))))
-
+  (if (frame-parameter (selected-frame) 'client)
+      (server-save-buffers-kill-terminal arg)
+    (save-buffers-kill-emacs arg)))
 \f
 ;; We use /: as a prefix to "quote" a file name
 ;; so that magic file name handlers will not apply to it.