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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-insert-xrefs): one-line-ify the label.  From Matthew Danish.

(slime-list-threads, slime-thread-insert): Show the thread-id.

(slime-thread-control-mode-map): Remove the binding for the
no-longer-existent slime-thread-goahead command.
Date: Fri Nov 19 02:08:46 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.423 slime/slime.el:1.424
--- slime/slime.el:1.423	Mon Nov 15 23:42:50 2004
+++ slime/slime.el	Fri Nov 19 02:08:45 2004
@@ -5414,7 +5414,7 @@
                 (slime-insert-propertized 
                  (list 'slime-location location
                        'face 'font-lock-keyword-face)
-                 "  " label "\n"))))
+                 "  " (slime-one-line-ify label) "\n"))))
   ;; Remove the final newline to prevent accidental window-scrolling
   (backward-char 1)
   (delete-char 1))
@@ -6464,15 +6464,16 @@
        (slime-thread-control-mode)
        (let ((inhibit-read-only t))
          (erase-buffer)
-         (loop for id from 0 
-               for (name status) in threads
-               do (slime-thread-insert id name status))
+         (loop for idx from 0 
+               for (name status id) in threads
+               do (slime-thread-insert idx name status id))
          (goto-char (point-min))
          (setq buffer-read-only t)
          (pop-to-buffer (current-buffer)))))))
 
-(defun slime-thread-insert (id name summary)
-  (slime-propertize-region `(thread-id ,id)
+(defun slime-thread-insert (idx name summary id)
+  (slime-propertize-region `(thread-id ,idx)
+    (insert (format "%3s: " id))
     (slime-insert-propertized '(face bold) name)
     (insert-char ?\040 (- 30 (current-column)))
     (let ((summary-start (point)))
@@ -6496,7 +6497,6 @@
   ("d"         'slime-thread-debug)
   ("g"         'slime-list-threads)
   ("k"         'slime-thread-kill)
-  ((kbd "RET") 'slime-thread-goahead)
   ("q"         'slime-thread-quit))
 
 (defun slime-thread-quit ()