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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-goto-source-location): Align at beginning of sexp after (:file
name pos) and (:emacs-buffer buffer pos).

Date: Sun Nov 23 02:15:03 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.101 slime/slime.el:1.102
--- slime/slime.el:1.101	Sat Nov 22 02:44:11 2003
+++ slime/slime.el	Sun Nov 23 02:15:02 2003
@@ -1981,10 +1981,14 @@
   (destructure-case location
     ((:file filename position)
      (set-buffer (find-file-noselect filename t))
-     (goto-char position))
+     (goto-char position)
+     (slime-forward-sexp)
+     (beginning-of-sexp))
     ((:emacs-buffer buffer position)
      (set-buffer buffer)
-     (goto-char position))
+     (goto-char position)
+     (slime-forward-sexp)
+     (beginning-of-sexp))
     ((:sexp string)
      (with-output-to-temp-buffer "*SLIME SEXP*"
        (princ string)))