[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv1370

Modified Files:
	slime.el ChangeLog 
Log Message:
(sldb-invoke-restart-by-name): New function. Invokes a
restart by name, uses completion to read restart's name.
(slime-define-keys sldb-mode-map): Bind
sldb-invoke-restart-by-name to I in sldb buffers.


--- /project/slime/cvsroot/slime/slime.el	2008/01/27 15:34:27	1.896
+++ /project/slime/cvsroot/slime/slime.el	2008/02/03 18:51:56	1.897
@@ -6551,6 +6551,7 @@
   (">"    'sldb-end-of-backtrace)
   ("t"    'sldb-toggle-details)
   ("r"    'sldb-restart-frame)
+  ("I"    'sldb-invoke-restart-by-name)
   ("R"    'sldb-return-from-frame)
   ("c"    'sldb-continue)
   ("s"    'sldb-step)
@@ -6591,6 +6592,13 @@
 
 (define-sldb-invoke-restart-keys 0 9)
 
+(defun sldb-invoke-restart-by-name (restart-name)
+  (interactive (list (completing-read "Restart: "
+                                      sldb-restarts nil t
+                                      ""
+                                      'sldb-invoke-restart-by-name)))
+  (sldb-invoke-restart (position restart-name sldb-restarts :test 'string= :key 'first)))
+
 
 ;;;;; SLDB buffer creation & update
 
--- /project/slime/cvsroot/slime/ChangeLog	2008/02/03 18:00:31	1.1275
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/03 18:51:56	1.1276
@@ -1,5 +1,10 @@
 2008-02-03  Marco Baringer  <mb at bese.it>
 
+	* slime.el (sldb-invoke-restart-by-name): New function. Invokes a
+	restart by name, uses completion to read restart's name.
+	(slime-define-keys sldb-mode-map): Bind
+	sldb-invoke-restart-by-name to I in sldb buffers.
+
 	* swank-loader.lisp: When loading swank delete all swank packages
 	first. This protects the lisp from broken reloads of swank.
 	(lisp-version-string): On openmcl use the full