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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-mode): Set slime-current-thread to :repl-thread.
Date: Thu Apr 29 15:07:43 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.282 slime/slime.el:1.283
--- slime/slime.el:1.282	Wed Apr 28 12:45:01 2004
+++ slime/slime.el	Thu Apr 29 15:07:42 2004
@@ -1514,7 +1514,10 @@
 
 (make-variable-buffer-local
  (defvar slime-current-thread t
-   "The id of the current thread on the Lisp side.  t don't care."))
+   "The id of the current thread on the Lisp side.  
+t means the \"current\" thread
+:repl-thread the thread to execute repl requests
+fixnum a specific thread."))
 
 (defun slime-dispatch-event (event &optional process)
   (let ((slime-dispatching-connection (or process (slime-connection))))
@@ -2018,6 +2021,7 @@
        'common-lisp-indent-function)
   (setq font-lock-defaults nil)
   (setq mode-name "REPL")
+  (setq slime-current-thread :repl-thread)
   ;;(set (make-local-variable 'scroll-conservatively) 20)
   ;;(set (make-local-variable 'scroll-margin) 0)
   (slime-setup-command-hooks)