[climacs-cvs] CVS climacs

[dmurray]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv32495

Modified Files:
	search-commands.lisp 
Log Message:
Fixed buglet when reverse-isearching from end of buffer. (It
now works.)


--- /project/climacs/cvsroot/climacs/search-commands.lisp	2006/05/16 21:08:08	1.4
+++ /project/climacs/cvsroot/climacs/search-commands.lisp	2006/05/17 06:33:12	1.5
@@ -148,7 +148,7 @@
                               (string char)))
          (mark (clone-mark (search-mark (first states))))
          (forwardp (search-forward-p (first states))))
-    (unless forwardp
+    (unless (or forwardp (end-of-buffer-p mark))
       (incf (offset mark)))
     (isearch-from-mark pane mark string forwardp)))
 
@@ -172,7 +172,7 @@
 			       (buffer-substring buffer
 						 (offset start)
 						 (offset point)))))
-      (unless forwardp
+      (unless (or forwardp (end-of-buffer-p mark))
 	(incf (offset mark)))
       (isearch-from-mark pane mark string forwardp))))
 
@@ -190,7 +190,7 @@
 			      (kill-ring-yank *kill-ring*)))
 	 (mark (clone-mark (search-mark (first states))))
 	 (forwardp (search-forward-p (first states))))
-    (unless forwardp
+    (unless (or forwardp (end-of-buffer-p mark))
       (incf (offset mark)))
     (isearch-from-mark pane mark string forwardp)))