(kill-buffer-query-functions): Fix the question text.

diff --git a/lisp/server.el b/lisp/server.el
index 7565509354259f6f8efe8d90fec1a32aa1ff7ffa..efa35ac68006c575ee82db294c529dd0982c488f 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -290,7 +290,8 @@ Then bury it, and return a suggested buffer to select next."
          (function
           (lambda ()
             (or (not server-buffer-clients)
-                (yes-or-no-p "Buffer `%s' still has clients; kill it? ")))))
+                (yes-or-no-p (format "Buffer `%s' still has clients; kill it? "
+                                     (buffer-name (current-buffer))))))))
 
 (add-hook 'kill-emacs-query-functions
          (function