[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-repl-history-pattern): Use the part of input
between its start and (point) as history search pattern.
Previously we used the entire input.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/26 21:17:58	1.1571
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/30 09:28:35	1.1572
@@ -1,3 +1,9 @@
+2008-10-30  Ivan Shvedunov <ivan4th at gmail.com>
+
+	* slime.el (slime-repl-history-pattern): Use the part of input
+	between its start and (point) as history search pattern.
+	Previously we used the entire input.
+
 2008-10-26  Helmut Eller  <heller at common-lisp.net>
 
 	* test.sh: Return the number of failed tests as exit code.
--- /project/slime/cvsroot/slime/slime.el	2008/10/26 21:17:44	1.1053
+++ /project/slime/cvsroot/slime/slime.el	2008/10/30 09:28:35	1.1054
@@ -3403,7 +3403,9 @@
   (cond ((slime-repl-history-search-in-progress-p)
          slime-repl-history-pattern)
         (use-current-input
-         (let ((str (slime-repl-current-input)))
+         (assert (<= slime-repl-input-start-mark (point)))
+         (let ((str (buffer-substring-no-properties
+                     slime-repl-input-start-mark (point))))
            (cond ((string-match "^[ \n]*$" str) nil)
                  (t (concat "^" (regexp-quote str))))))
         (t nil)))