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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-handle-oob): Added :open-dedicated-output-stream message,
previously implemented with :%apply.

(slime-repl-read-string, slime-repl-return-string): Pass integer
argument to `slime-repl-read-mode' to set rather than toggle.

(slime-events-buffer): Set `hs-block-start-regexp' before running
`hs-minor-mode'.

Date: Sun Jan 11 19:50:33 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.172 slime/slime.el:1.173
--- slime/slime.el:1.172	Sat Jan 10 01:43:52 2004
+++ slime/slime.el	Sun Jan 11 19:50:33 2004
@@ -1393,6 +1393,9 @@
     ((:new-features features)
      (setf (slime-lisp-features) features)
      t)
+    ((:open-dedicated-output-stream port)
+     (slime-open-stream-to-lisp port)
+     t)
     ((:%apply fn args)
      (apply (intern fn) args)
      t)
@@ -1484,8 +1487,8 @@
       (let ((buffer (get-buffer-create "*slime-events*")))
         (with-current-buffer buffer
           (lisp-mode)
-          (hs-minor-mode)
           (set (make-local-variable 'hs-block-start-regexp) "^(")
+          (hs-minor-mode)
           (setq font-lock-defaults nil)
           (current-buffer)))))
 
@@ -2290,11 +2293,11 @@
   (slime-switch-to-output-buffer)
   (slime-mark-output-end)
   (slime-mark-input-start)
-  (slime-repl-read-mode t))
+  (slime-repl-read-mode 1))
 
 (defun slime-repl-return-string (string)
   (slime-dispatch-event `(:emacs-return-string ,string))
-  (slime-repl-read-mode nil))
+  (slime-repl-read-mode -1))
 
 (defun slime-repl-read-break ()
   (interactive)
@@ -2302,7 +2305,7 @@
 
 (defun slime-repl-abort-read ()
   (with-current-buffer (slime-output-buffer)
-    (slime-repl-read-mode nil)
+    (slime-repl-read-mode -1)
     (message "Read aborted")))
 
 
@@ -4851,7 +4854,7 @@
     "Lookup the argument list for FUNCTION-NAME.
 Confirm that EXPECTED-ARGLIST is displayed."
     '(("swank:start-server"
-       "(swank:start-server port-file-namestring)")
+       "(swank:start-server port-file)")
       ("swank::compound-prefix-match"
        "(swank::compound-prefix-match prefix target)"))
   (let ((arglist (slime-get-arglist function-name))) ;