[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv24698

Modified Files:
	slime.el 
Log Message:
*** empty log message ***
Date: Sun Jun 27 08:04:07 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.338 slime/slime.el:1.339
--- slime/slime.el:1.338	Sat Jun 26 23:57:25 2004
+++ slime/slime.el	Sun Jun 27 08:04:07 2004
@@ -5983,7 +5983,7 @@
 (defun slime-thread-kill ()
   (interactive)
   (let ((id (get-text-property (point) 'thread-id)))
-    (slime-eval `(swank:kill-thread-by-id ,id)))
+    (slime-eval `(swank:kill-nth-thread ,id)))
   (call-interactively 'slime-list-threads))
 
 (defun slime-thread-attach ()
@@ -5998,7 +5998,7 @@
 (defun slime-thread-debug ()
   (interactive)
   (let ((id (get-text-property (point) 'thread-id)))
-    (slime-eval-async `(swank::debug-thread-by-id ,id)
+    (slime-eval-async `(swank:debug-nth-thread ,id)
                       (slime-buffer-package)
                       (lambda (v) nil))))