[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	slime.el 
Log Message:
slime.el(slime-inspector-fetch-all): go to the end even if there
is nothing more to fetch.


--- /project/slime/cvsroot/slime/slime.el	2009/07/15 20:34:10	1.1198
+++ /project/slime/cvsroot/slime/slime.el	2009/07/15 20:37:58	1.1199
@@ -6557,9 +6557,9 @@
 (defun slime-inspector-fetch-all ()
   "Fetch all inspector contents and go to the end."
   (interactive)
-  (let ((button (get-text-property (1- (point-max)) 'slime-range-button)))
+  (goto-char (1- (point-max)))
+  (let ((button (get-text-property (point) 'slime-range-button)))
     (when button
-      (goto-char (1- (point-max)))
       (let (slime-inspector-limit)
         (slime-inspector-fetch-more button)))))