[slime-cvs] CVS update: slime/ChangeLog slime/slime.el slime/swank.lisp

[Alan Ruttenberg]

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

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:

Date: Wed Aug 31 01:57:26 2005
Author: aruttenberg

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.764 slime/ChangeLog:1.765
--- slime/ChangeLog:1.764	Tue Aug 30 15:03:28 2005
+++ slime/ChangeLog	Wed Aug 31 01:57:25 2005
@@ -1,3 +1,8 @@
+2005-08-30  Alan Ruttenberg <alanr-l at mumble.net>
+	* slime.el (slime-mark-presentation-start/end-handler) modify
+	regexp to recognize negative presentation ids to make
+	presenting-object work with bridge mode.
+	
 2005-08-30  Luke Gorrie  <luke at synap.se>
 
 	* present.lisp: Added public domain dedication (OK'd by Alanr and
@@ -24,6 +29,8 @@
 2005-08-29  Alan Ruttenberg <alanr-l at mumble.net>
 	* slime.el (sldb-insert-condition) - Add tooltip for long
 	condition string which otherwise falls off the right of the screen
+	* swank.lisp (list-threads) - thread name might be a symbol - pass
+	the symbol name when that happens
 
 2005-08-29  Juho Snellman  <jsnell at iki.fi>
 


Index: slime/slime.el
diff -u slime/slime.el:1.534 slime/slime.el:1.535
--- slime/slime.el:1.534	Mon Aug 29 21:27:51 2005
+++ slime/slime.el	Wed Aug 31 01:57:26 2005
@@ -2588,7 +2588,7 @@
           (marker-position (symbol-value 'slime-output-end)))))
 
 (defun slime-mark-presentation-start-handler (process string)
-  (if (and string (string-match "<\\([0-9]+\\)" string))
+  (if (and string (string-match "<\\([-0-9]+\\)" string))
       (let* ((match (substring string (match-beginning 1) (match-end 1)))
              (id (car (read-from-string match))))
         (slime-mark-presentation-start id))))
@@ -2602,7 +2602,7 @@
                                            id nil)))))
 
 (defun slime-mark-presentation-end-handler (process string)
-  (if (and string (string-match ">\\([0-9]+\\)" string))
+  (if (and string (string-match ">\\([-0-9]+\\)" string))
       (let* ((match (substring string (match-beginning 1) (match-end 1)))
              (id (car (read-from-string match))))
         (slime-mark-presentation-end id))))


Index: slime/swank.lisp
diff -u slime/swank.lisp:1.327 slime/swank.lisp:1.328
--- slime/swank.lisp:1.327	Mon Aug 29 21:31:35 2005
+++ slime/swank.lisp	Wed Aug 31 01:57:26 2005
@@ -3996,7 +3996,8 @@
   "Return a list ((NAME DESCRIPTION) ...) of all threads."
   (setq *thread-list* (all-threads))
   (loop for thread in  *thread-list* 
-        collect (list (thread-name thread)
+       for name = (thread-name thread)
+        collect (list (if (symbolp name) (symbol-name name) name)
                       (thread-status thread)
                       (thread-id thread))))