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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-eval-with-transcript): Don't print the "=>" prefix in messages
showing evaluation results. It mucks up alignment in multi-line
messages.

(sldb-eval-in-frame): Don't print "==>" prefix on evaluation results,
for the same reason.

(slime-show-source-location): Move the point to the source location in
addition to highlighting the matching parens.

Date: Mon May 10 09:44:26 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.297 slime/slime.el:1.298
--- slime/slime.el:1.297	Thu May  6 15:52:23 2004
+++ slime/slime.el	Mon May 10 09:44:25 2004
@@ -3909,7 +3909,7 @@
                       (lambda (value)
                         (with-current-buffer (slime-output-buffer)
                           (cond (fn (funcall fn value))
-                                (t (message "=> %s" value)))
+                                (t (message "%s" value)))
                           (slime-show-last-output))))))
 
 (defun slime-eval-describe (form)
@@ -4927,7 +4927,11 @@
     (display-buffer (current-buffer) t)
     (save-excursion
       (beginning-of-line -4)
-      (set-window-start (get-buffer-window (current-buffer) t) (point)))))
+      (let ((window (get-buffer-window (current-buffer) t))
+            (pos (point)))
+        (set-window-start (get-buffer-window (current-buffer) t) (point))
+        (select-window window)
+        (goto-char pos)))))
 
 
 (defun sldb-toggle-details (&optional on)
@@ -5012,7 +5016,7 @@
   (let* ((number (sldb-frame-number-at-point)))
     (slime-eval-async `(swank:eval-string-in-frame ,string ,number)
 		      (slime-buffer-package)
-		      (lambda (reply) (slime-message "==> %s" reply)))))
+		      (lambda (reply) (slime-message "%s" reply)))))
 
 (defun sldb-pprint-eval-in-frame (string)
   "Prompt for an expression, evaluate in selected frame, pretty-print result."
@@ -5575,7 +5579,6 @@
 If REGION is true, operate on the region. Otherwise operate on
 the top-level sexp before point."
   (interactive "P")
-  (message "region = %S" region)
   (let ((sexp-level 0)
         point)
     (save-excursion
@@ -6365,8 +6368,8 @@
       (slime-sync-to-top-level 5)
       (slime-check-top-level)
       (let ((message (current-message)))
-        (slime-check "Minibuffer contains: \"=> 3\""
-          (equal "=> 3" message))))))
+        (slime-check "Minibuffer contains: \"3\""
+          (equal "3" message))))))
 
 (def-slime-test interrupt-bubbling-idiot 
     ()