changeset 101126:7c467055463f

(save-buffers-kill-terminal): Args for server-save-buffers-kill-terminal changed.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 11 Jan 2009 16:45:52 +0000
parents 30796b5e3f42
children 1f33f73056ae
files lisp/files.el
diffstat 1 files changed, 3 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Sun Jan 11 16:45:36 2009 +0000
+++ b/lisp/files.el	Sun Jan 11 16:45:52 2009 +0000
@@ -5731,12 +5731,9 @@
 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)))
 
 ;; We use /: as a prefix to "quote" a file name
 ;; so that magic file name handlers will not apply to it.