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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
slime-show-source-location:
Use `push-mark' instead of `set-mark-command'.

Date: Tue Oct 19 20:59:39 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.411 slime/slime.el:1.412
--- slime/slime.el:1.411	Tue Oct 19 20:54:19 2004
+++ slime/slime.el	Tue Oct 19 20:59:39 2004
@@ -6044,7 +6044,7 @@
       (let ((w (select-window (or (get-buffer-window (current-buffer) t)
                                   (display-buffer (current-buffer) t)))))
         (goto-char position)
-        (set-mark-command nil)
+        (push-mark)
         (unless (pos-visible-in-window-p)
           (slime-recenter-window w sldb-show-location-recenter-arg))))))