[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	slime-repl.el ChangeLog 
Log Message:
	* slime-repl.el (slime-inspector-mode-map): Add binding for M-RET.
	(slime-inspector-copy-down-to-repl): Moved here from slime.el.


--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/03/27 12:58:22	1.19
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/04/03 20:43:48	1.20
@@ -458,6 +458,9 @@
   ("\C-c\C-p" 'slime-repl-previous-prompt)
   ("\C-c\C-z" 'slime-nop))
 
+(slime-define-keys slime-inspector-mode-map
+  ((kbd "M-RET") 'slime-inspector-copy-down-to-repl))
+
 (def-slime-selector-method ?r
   "SLIME Read-Eval-Print-Loop."
   (slime-output-buffer))
@@ -1417,6 +1420,14 @@
             (t
              (error "Not in a function definition")))))))
 
+(defun slime-inspector-copy-down-to-repl (number)
+   "Evaluate the inspector slot at point via the REPL (to set `*')."
+   (interactive (list (or (get-text-property (point) 'slime-part-number)
+                          (error "No part at point"))))
+   (slime-repl-send-string (format "%s" `(swank:inspector-nth-part ,number)))
+   (slime-repl))
+
+
 (defun slime-set-default-directory (directory)
   "Make DIRECTORY become Lisp's current directory."
   (interactive (list (read-directory-name "Directory: " nil nil t)))
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/03/27 20:33:25	1.198
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/04/03 20:43:48	1.199
@@ -1,3 +1,8 @@
+2009-04-03  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-repl.el (slime-inspector-mode-map): Add binding for M-RET.
+	(slime-inspector-copy-down-to-repl): Moved here from slime.el.
+
 2009-03-27  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-indentantion-fu.el (slime-indent-fu): Correctly deal with