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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-dispatch-event): Re-enable :ed command.
(sldb-return-from-frame): Send swank:sldb-return-from-frame.
Date: Fri Mar 12 16:15:03 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.233 slime/slime.el:1.234
--- slime/slime.el:1.233	Wed Mar 10 04:10:33 2004
+++ slime/slime.el	Fri Mar 12 16:15:01 2004
@@ -1441,7 +1441,7 @@
       ((:%apply fn args)
        (apply (intern fn) args))
       ((:ed what)
-       (run-with-idle-timer 0 nil 'slime-call/error->message 'slime-ed what))
+       (slime-ed what))
       ((:debug-condition thread message)
        (message "%s" message)))))
 
@@ -3524,7 +3524,7 @@
       (select-frame slime-ed-frame))
     (cond ((stringp what)
            (find-file (slime-from-lisp-filename what)))
-          ((symbolp what)
+          ((and what (symbolp what))
            (slime-edit-definition (symbol-name what)))
           (t nil))))                    ; nothing in particular
 
@@ -4778,7 +4778,7 @@
   (interactive (list (slime-read-from-minibuffer "Return from frame: ")))
   (let* ((number (sldb-frame-number-at-point)))
     (slime-rex ()
-        ((list 'swank:return-from-frame number string))
+        ((list 'swank:sldb-return-from-frame number string))
       ((:ok value) (message "%s" value))
       ((:abort)))))