[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-net-close): set-process-query-on-exit-flag
doesn't exist in XEmacs.
(slime-make-net-buffer): For now, disable querying here.
Could also close the socket before killing the buffer.
(slime-buffer-processes): Deleted.

--- /project/slime/cvsroot/slime/ChangeLog	2009/09/02 17:21:15	1.1849
+++ /project/slime/cvsroot/slime/ChangeLog	2009/09/03 07:43:08	1.1850
@@ -1,3 +1,11 @@
+2009-09-03  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-net-close): set-process-query-on-exit-flag
+	doesn't exist in XEmacs.
+	(slime-make-net-buffer): For now, disable querying here.
+	Could also close the socket before killing the buffer.
+	(slime-buffer-processes): Deleted.
+
 2009-09-02  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-lispworks.lisp (replace-strings-with-symbols): New function for
--- /project/slime/cvsroot/slime/slime.el	2009/09/02 14:04:31	1.1219
+++ /project/slime/cvsroot/slime/slime.el	2009/09/03 07:43:08	1.1220
@@ -1634,7 +1634,8 @@
   "Make a buffer suitable for a network process."
   (let ((buffer (generate-new-buffer name)))
     (with-current-buffer buffer
-      (buffer-disable-undo))
+      (buffer-disable-undo)
+      (set (make-local-variable 'kill-buffer-query-functions) nil))
     buffer))
 
 (defun slime-set-query-on-exit-flag (process)
@@ -1693,12 +1694,6 @@
         (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)
@@ -1709,9 +1704,6 @@
          (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)))))