[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
	* slime-repl.el (slime-repl-previous-matching-input)
	(slime-repl-next-matching-input): Read input by means of
	`slime-read-from-minibuffer' so TAB will complete symbols for us.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/23 12:23:35	1.284
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/23 12:25:42	1.285
@@ -1,5 +1,11 @@
 2009-11-23  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime-repl.el (slime-repl-previous-matching-input)
+	(slime-repl-next-matching-input): Read input by means of
+	`slime-read-from-minibuffer' so TAB will complete symbols for us.
+
+2009-11-23  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* swank-asdf.lisp (operate-on-system-for-emacs),
 	(operate-on-system): Muffle ASDF:COMPILE-ERROR because we reuse
 	Slime's compilation error reportery anyway, and sldb popping up is
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/11/22 13:03:11	1.31
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/11/23 12:25:42	1.32
@@ -992,12 +992,14 @@
   (slime-repl-history-replace 'backward (slime-repl-history-pattern)))
 
 (defun slime-repl-previous-matching-input (regexp)
-  (interactive "sPrevious element matching (regexp): ")
+  (interactive (list (slime-read-from-minibuffer
+		      "Previous element matching (regexp): ")))
   (slime-repl-terminate-history-search)
   (slime-repl-history-replace 'backward regexp))
 
 (defun slime-repl-next-matching-input (regexp)
-  (interactive "sNext element matching (regexp): ")
+  (interactive (list (slime-read-from-minibuffer
+		      "Next element matching (regexp): ")))
   (slime-repl-terminate-history-search)
   (slime-repl-history-replace 'forward regexp))