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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-prin1-to-string): Bind `print-escape-newlines' to nil.

(slime-set-connection-info): Commented out call to
`slime-check-protocol-version'. Let's see how we do without it.

(slime-oneway-eval): Removed unused function.

Date: Tue Apr 27 17:22:52 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.279 slime/slime.el:1.280
--- slime/slime.el:1.279	Tue Apr 27 13:40:08 2004
+++ slime/slime.el	Tue Apr 27 17:22:52 2004
@@ -102,12 +102,6 @@
 This applies to buffers that present lines as rows of data, such as
 debugger backtraces and apropos listings.")
 
-(defvar slime-global-debugger-hook nil
-  "* When true, install the SLIME debugger hook globally in Lisp.
-
-This means the SLIME debugger will be used for all errors occuring in
-Lisp, not just those occuring during RPCs.")
-
 (defvar slime-multiprocessing nil
   "* When true, enable multiprocessing in Lisp.")
 
@@ -1564,8 +1558,6 @@
        (slime-handle-indentation-update info))
       ((:open-dedicated-output-stream port)
        (slime-open-stream-to-lisp port))
-      ((:check-protocol-version version)
-       (slime-check-protocol-version version))
       ((:use-sigint-for-interrupt)
        (setf (slime-use-sigint-for-interrupt) t))
       ((:%apply fn args)
@@ -1626,15 +1618,13 @@
 (defun slime-set-connection-info (connection info)
   "Initialize CONNECTION with INFO received from Lisp."
   (destructuring-bind (version pid type name features) info
-    (slime-check-protocol-version version)
+;;    (slime-check-protocol-version version)
     (setf (slime-pid) pid
           (slime-lisp-implementation-type) type
           (slime-lisp-implementation-type-name) name
           (slime-connection-name) (slime-generate-connection-name name)
           (slime-lisp-features) features))
   (setq slime-state-name "")
-  (when slime-global-debugger-hook
-    (slime-eval '(swank:install-global-debugger-hook)))
   (when-let (buffer (get-buffer "*inferior-lisp*"))
     (delete-windows-on buffer)
     (bury-buffer buffer))
@@ -1689,10 +1679,6 @@
 
 ;;;;; Utilities
 
-(defun slime-output-oneway-evaluate-request (form-string package-name)
-  "Like `slime-output-oneway-evaluate-request' but without expecting a result."
-  (slime-send `(swank:oneway-eval-string ,form-string ,package-name)))
-
 (defun slime-check-connected ()
   (unless (slime-connected-p)
     (error "Not connected. Use `%s' to start a Lisp."
@@ -1779,12 +1765,6 @@
      (funcall cont result))
     ((:abort) 
      (message "Evaluation aborted."))))
-
-(defun slime-oneway-eval (sexp &optional package)
-  "Evaluate SEXP \"one-way\" - without receiving a return value."
-  (slime-check-connected)
-  (slime-dispatch-event
-   `(:emacs-evaluate-oneway ,(slime-prin1-to-string sexp) ,package)))
 
 (defun slime-send (sexp)
   (slime-net-send sexp (slime-connection)))