[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-inspector-fetch-all): new command, bound to >
in the inspector buffer.

* doc/slime.texi (Frame Navigation): add description
of `sldb-end-of-backtrace' and `sldb-beginning-of-backtrace'.
(Inspector): add `slime-inspector-fetch-all'.


--- /project/slime/cvsroot/slime/ChangeLog	2009/07/12 08:01:28	1.1811
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/15 20:34:09	1.1812
@@ -1,3 +1,13 @@
+2009-07-15  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-inspector-fetch-all): new command, bound to >
+	in the inspector buffer.
+
+	* doc/slime.texi (Frame Navigation): add description
+	of `sldb-end-of-backtrace' and `sldb-beginning-of-backtrace'.
+	(Inspector): add `slime-inspector-fetch-all'.
+
+
 2009-07-12  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-editing-keys): Don't override M-*. The default
--- /project/slime/cvsroot/slime/slime.el	2009/07/12 08:01:28	1.1197
+++ /project/slime/cvsroot/slime/slime.el	2009/07/15 20:34:10	1.1198
@@ -6554,6 +6554,15 @@
          'face 'slime-inspector-action-face)
    (if previous " [--more--]\n" " [--more--]")))
 
+(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)))
+    (when button
+      (goto-char (1- (point-max)))
+      (let (slime-inspector-limit)
+        (slime-inspector-fetch-more button)))))
+
 (defun slime-inspector-fetch-more (button)
   (destructuring-bind (index prev) button
     (slime-inspector-fetch-chunk 
@@ -6615,7 +6624,8 @@
   ("\C-i" 'slime-inspector-next-inspectable-object)
   ([(shift tab)] 'slime-inspector-previous-inspectable-object) ; Emacs translates S-TAB
   ([backtab]     'slime-inspector-previous-inspectable-object) ; to BACKTAB on X.
-  ("." 'slime-inspector-show-source))
+  ("." 'slime-inspector-show-source)
+  (">" 'slime-inspector-fetch-all))
 
 
 ;;;; Buffer selector