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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-show-source-location): Call `set-mark-command' to push the
source position onto the global mark ring.

Date: Tue Oct 19 20:54:21 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.410 slime/slime.el:1.411
--- slime/slime.el:1.410	Sun Oct 17 22:05:41 2004
+++ slime/slime.el	Tue Oct 19 20:54:19 2004
@@ -6044,6 +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)
         (unless (pos-visible-in-window-p)
           (slime-recenter-window w sldb-show-location-recenter-arg))))))