[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-repl-history-pattern): Simplify as suggested by
Knut Olav Bohmer and Michael Weber.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/31 14:13:34	1.1577
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/31 14:19:35	1.1578
@@ -1,5 +1,10 @@
 2008-10-31  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-repl-history-pattern): Simplify as suggested by
+	Knut Olav Bøhmer and Michael Weber.
+
+2008-10-31  Helmut Eller  <heller at common-lisp.net>
+
 	* slime.el (slime-eval-with-transcript)
 	(slime-eval-with-transcript-cont): Restore the current buffer,
 	before calling cont.
@@ -12,8 +17,8 @@
 
 2008-10-31  Helmut Eller  <heller at common-lisp.net>
 
-	* swank.lisp (debug-in-emacs): Bind *sldb-quit-restart*
-	here, if necessary to the next abort retstart.
+	* swank.lisp (debug-in-emacs): Bind *sldb-quit-restart* here. If
+	necessary, use the current abort retstart.
 
 2008-10-30  Helmut Eller  <heller at common-lisp.net>
 
--- /project/slime/cvsroot/slime/slime.el	2008/10/31 14:13:34	1.1057
+++ /project/slime/cvsroot/slime/slime.el	2008/10/31 14:19:35	1.1058
@@ -2978,11 +2978,10 @@
 buffer."
   (or (run-hook-with-args-until-success 'slime-repl-current-input-hooks 
                                         until-point-p)
-      (buffer-substring-no-properties
-       slime-repl-input-start-mark 
-       (if until-point-p 
-           (point) 
-         (point-max)))))
+      (buffer-substring-no-properties slime-repl-input-start-mark 
+                                      (if until-point-p 
+                                          (point) 
+                                        (point-max)))))
 
 (defun slime-property-position (text-property &optional object)
   "Return the first position of TEXT-PROPERTY, or nil."
@@ -3403,8 +3402,7 @@
          slime-repl-history-pattern)
         (use-current-input
          (assert (<= slime-repl-input-start-mark (point)))
-         (let ((str (buffer-substring-no-properties
-                     slime-repl-input-start-mark (point))))
+         (let ((str (slime-repl-current-input t)))
            (cond ((string-match "^[ \n]*$" str) nil)
                  (t (concat "^" (regexp-quote str))))))
         (t nil)))