diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-09-20 14:55:27 +0100 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-09-23 12:41:56 +0100 |
commit | ffe67d966da2da8a8be34c667fffc7951d451b6b (patch) | |
tree | a10d466f4d3c915ee9f15b80f9db7556966c3fa5 /nrepl-client.el | |
parent | 574d49f8bff6abab0e0efe4898ebe4acb6f104c8 (diff) |
Fix a shadowed variable and a bad function warning
Diffstat (limited to 'nrepl-client.el')
-rw-r--r-- | nrepl-client.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/nrepl-client.el b/nrepl-client.el index 6a652393..73c20533 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -712,18 +712,18 @@ If NO-ERROR is non-nil, show messages instead of throwing an error." ;;; Client: Process Handling -(defun nrepl--maybe-kill-server-buffer (server-buffer) +(defun nrepl--maybe-kill-server-buffer (server-buf) "Kill SERVER-BUFFER and its process, subject to user confirmation. Do nothing if there is a REPL connected to that server." - (with-current-buffer server-buffer + (with-current-buffer server-buf ;; Don't kill the server if there is a REPL connected to it. (when (and (not nrepl-client-buffers) (y-or-n-p "Also kill server process and buffer? ")) - (let ((proc (get-buffer-process server-buffer))) + (let ((proc (get-buffer-process server-buf))) (when (process-live-p proc) (set-process-query-on-exit-flag proc nil) (kill-process proc)) - (kill-buffer server-buffer))))) + (kill-buffer server-buf))))) ;; `nrepl-start-client-process' is called from `nrepl-server-filter'. It ;; starts the client process described by `nrepl-client-filter' and |