[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv6469

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-net-close): Do not query for process killing
confirmation before killing a connection buffer.
(slime-buffer-processes): New function for listing processes
associated with a buffer.


--- /project/slime/cvsroot/slime/ChangeLog	2009/08/31 17:08:17	1.1847
+++ /project/slime/cvsroot/slime/ChangeLog	2009/09/02 14:04:31	1.1848
@@ -1,3 +1,10 @@
+2009-09-02  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-net-close): Do not query for process killing
+	confirmation before killing a connection buffer.
+	(slime-buffer-processes): New function for listing processes
+	associated with a buffer.
+
 2009-08-31  Helmut Eller  <heller at common-lisp.net>
 
 	Don't advice ccl::break-loop.
--- /project/slime/cvsroot/slime/slime.el	2009/08/31 17:08:09	1.1218
+++ /project/slime/cvsroot/slime/slime.el	2009/09/02 14:04:31	1.1219
@@ -1693,6 +1693,12 @@
         (and (not (multibyte-string-p string))
              (not (slime-coding-system-mulibyte-p coding-system))))))
 
+(defun slime-buffer-processes (buffer)
+  "List all processes associated with BUFFER."
+  (remove* buffer (process-list)
+           :key 'process-buffer
+           :test-not 'eq))
+
 (defun slime-net-close (process &optional debug)
   (setq slime-net-processes (remove process slime-net-processes))
   (when (eq process slime-default-connection)
@@ -1703,6 +1709,9 @@
          (delete-process process))
         (t
          (run-hook-with-args 'slime-net-process-close-hooks process)
+         ;; there might be more than one process
+         (dolist (process (slime-buffer-processes (process-buffer process)))
+           (set-process-query-on-exit-flag process nil))
          ;; killing the buffer also closes the socket
          (kill-buffer (process-buffer process)))))