[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:

Previously, M-p at the REPL deleted the input if no match could be
found in the history. Now the input is untouched.

* slime.el (slime-repl-history-replace): Ditch delete-at-end-p
  argument.
  (slime-repl-next-input, slime-repl-previous-input): Adapted.
  (slime-repl-forward-input, slime-repl-backward-input): Ditto.


--- /project/slime/cvsroot/slime/slime.el	2008/08/07 14:10:25	1.965
+++ /project/slime/cvsroot/slime/slime.el	2008/08/07 15:54:37	1.966
@@ -3275,12 +3275,10 @@
 (defvar slime-repl-history-pattern nil
   "The regexp most recently used for finding input history.")
 
-(defun slime-repl-history-replace (direction &optional regexp delete-at-end-p)
+(defun slime-repl-history-replace (direction &optional regexp)
   "Replace the current input with the next line in DIRECTION.
 DIRECTION is 'forward' or 'backward' (in the history list).
-If REGEXP is non-nil, only lines matching REGEXP are considered.
-If DELETE-AT-END-P is non-nil then remove the string if the end of the
-history is reached."
+If REGEXP is non-nil, only lines matching REGEXP are considered."
   (setq slime-repl-history-pattern regexp)
   (let* ((min-pos -1)
          (max-pos (length slime-repl-input-history))
@@ -3300,9 +3298,7 @@
            (setq msg "Wrapped history")))
     (when (or (<= pos min-pos) (<= max-pos pos))
       (when regexp
-        (setq msg (concat msg "; no matching item")))
-      (when delete-at-end-p
-        (slime-repl-replace-input "")))
+        (setq msg (concat msg "; no matching item"))))
     ;;(message "%s [%d %d %s]" msg start-pos pos regexp)
     (message "%s%s" msg (cond ((not regexp) "")
                               (t (format "; current regexp: %s" regexp))))
@@ -3335,23 +3331,23 @@
 same search pattern for this command.
 Otherwise use the current input as search pattern."
   (interactive)
-  (slime-repl-history-replace 'backward (slime-repl-history-pattern t) t))
+  (slime-repl-history-replace 'backward (slime-repl-history-pattern t)))
 
 (defun slime-repl-next-input ()
   "Cycle forwards through input history.
 See `slime-repl-previous-input'."
   (interactive)
-  (slime-repl-history-replace 'forward (slime-repl-history-pattern t) t))
+  (slime-repl-history-replace 'forward (slime-repl-history-pattern t)))
 
 (defun slime-repl-forward-input ()
   "Cycle forwards through input history."
   (interactive)
-  (slime-repl-history-replace 'forward (slime-repl-history-pattern) t))
+  (slime-repl-history-replace 'forward (slime-repl-history-pattern)))
 
 (defun slime-repl-backward-input ()
   "Cycle backwards through input history."
   (interactive)
-  (slime-repl-history-replace 'backward (slime-repl-history-pattern) t))
+  (slime-repl-history-replace 'backward (slime-repl-history-pattern)))
 
 (defun slime-repl-previous-matching-input (regexp)
   (interactive "sPrevious element matching (regexp): ")
--- /project/slime/cvsroot/slime/ChangeLog	2008/08/07 14:10:25	1.1404
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/07 15:54:40	1.1405
@@ -1,3 +1,13 @@
+2008-08-07  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	Previously, M-p at the REPL deleted the input if no match could be
+	found in the history. Now the input is untouched.
+
+	* slime.el (slime-repl-history-replace): Ditch delete-at-end-p
+	argument.
+	(slime-repl-next-input, slime-repl-previous-input): Adapted.
+	(slime-repl-forward-input, slime-repl-backward-input): Ditto.
+
 2008-08-07  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-with-temp-buffer): Renamed from