[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv31299

Modified Files:
	slime.el ChangeLog 
Log Message:
	* slime.el (sldb-backward-frame): Only move backward when we're
	below the backtrace marker.


--- /project/slime/cvsroot/slime/slime.el	2009/02/26 18:41:23	1.1130
+++ /project/slime/cvsroot/slime/slime.el	2009/02/26 21:41:28	1.1131
@@ -5573,10 +5573,11 @@
   (goto-char (next-single-char-property-change (point) 'frame)))
 
 (defun sldb-backward-frame ()
-  (goto-char (previous-single-char-property-change
-              (car (sldb-frame-region))
-              'frame
-              nil sldb-backtrace-start-marker)))
+  (when (> (point) sldb-backtrace-start-marker)
+    (goto-char (previous-single-char-property-change
+                (car (sldb-frame-region))
+                'frame
+                nil sldb-backtrace-start-marker))))
 
 (defun sldb-goto-last-frame ()
   (goto-char (point-max))
--- /project/slime/cvsroot/slime/ChangeLog	2009/02/26 21:19:45	1.1693
+++ /project/slime/cvsroot/slime/ChangeLog	2009/02/26 21:41:28	1.1694
@@ -1,5 +1,10 @@
 2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (sldb-backward-frame): Only move backward when we're
+	below the backtrace marker.
+
+2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* swank.lisp (debug-in-emacs): Moved (WITH-BINDINGS
 	*SLDB-PRINTER-BINDINGS* ...), from here...
 	(sldb-loop): ... to here. Otherwise results from a user doing an