[slime-cvs] CVS update: slime/swank.lisp slime/slime.el slime/ChangeLog

[Marco Baringer]

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

Modified Files:
	swank.lisp slime.el ChangeLog 
Log Message:
2004-06-28  Thomas F. Burdick  <tfb at OCF.Berkeley.EDU>
	* swank.lisp (inspector-nth-part):
	* slime.el (slime-inspector-copy-down, slime-inspector-mode-map):
	Added copy-down command (M-RET) to easily move an object from the
	inspector to the repl.

Date: Tue Jun 29 01:12:45 2004
Author: mbaringer

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.204 slime/swank.lisp:1.205
--- slime/swank.lisp:1.204	Sun Jun 27 07:58:51 2004
+++ slime/swank.lisp	Tue Jun 29 01:12:44 2004
@@ -2432,12 +2432,12 @@
                          collect (cons (princ-to-string label)
                                        (print-part-to-string value)))))))
 
-(defun nth-part (index)
+(defslimefun inspector-nth-part (index)
   (cdr (nth index *inspectee-parts*)))
 
 (defslimefun inspect-nth-part (index)
   (with-buffer-syntax ()
-    (inspect-object (nth-part index))))
+    (inspect-object (inspector-nth-part index))))
 
 (defslimefun inspector-pop ()
   "Drop the inspector stack and inspect the second element.  Return


Index: slime/slime.el
diff -u slime/slime.el:1.343 slime/slime.el:1.344
--- slime/slime.el:1.343	Mon Jun 28 14:05:16 2004
+++ slime/slime.el	Tue Jun 29 01:12:44 2004
@@ -6197,6 +6197,11 @@
 		    'slime-open-inspector)
   (push (point) slime-inspector-mark-stack))
 
+(defun slime-inspector-copy-down (number)
+  (interactive (list (slime-inspector-object-at-point)))
+  (slime-repl-send-string (format "%s" `(swank:inspector-nth-part ,number)))
+  (slime-repl))
+
 (defun slime-inspector-pop ()
   (interactive)
   (slime-eval-async 
@@ -6229,6 +6234,7 @@
 
 (slime-define-keys slime-inspector-mode-map
   ([return] 'slime-inspector-inspect-object-at-point)
+  ([(meta return)] 'slime-inspector-copy-down)
   ("\C-m"   'slime-inspector-inspect-object-at-point)
   ("l" 'slime-inspector-pop)
   ("n" 'slime-inspector-next)


Index: slime/ChangeLog
diff -u slime/ChangeLog:1.436 slime/ChangeLog:1.437
--- slime/ChangeLog:1.436	Mon Jun 28 14:05:28 2004
+++ slime/ChangeLog	Tue Jun 29 01:12:44 2004
@@ -1,3 +1,9 @@
+2004-06-28  Thomas F. Burdick  <tfb at OCF.Berkeley.EDU>
+	* swank.lisp (inspector-nth-part):
+	* slime.el (slime-inspector-copy-down, slime-inspector-mode-map):
+	Added copy-down command (M-RET) to easily move an object from the
+	inspector to the repl.
+	
 2004-06-28  Luke Gorrie  <luke at bluetail.com>
 
 	* slime.el (slime-doc-map): New keymap for documentation
@@ -212,6 +218,7 @@
 
 	* swank.lisp (prefixed-var): Intern *REAL-STANDARD-INPUT* etc in
 	the SWANK package instead of the COMMON-LISP package.
+>>>>>>> 1.436
 
 2004-06-21  Luke Gorrie  <luke at bluetail.com>