[climacs-cvs] CVS climacs - climacs-cvs@common-lisp.net - mailman3.common-lisp.net

17 May 2006

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)))

    