[Emacs-diffs] Changes to emacs/src/search.c [lexbind]

[Miles Bader]

Index: emacs/src/search.c
diff -c emacs/src/search.c:1.164.2.7 emacs/src/search.c:1.164.2.8
*** emacs/src/search.c:1.164.2.7        Tue Jul  6 10:20:31 2004
--- emacs/src/search.c  Tue Jul  6 10:23:40 2004
***************
*** 2808,2816 ****
        search_regs.num_regs = length;
        }
  
!     for (i = 0; i < length; i++)
        {
        marker = Fcar (list);
        if (NILP (marker))
          {
            search_regs.start[i] = -1;
--- 2808,2823 ----
        search_regs.num_regs = length;
        }
  
!     for (i = 0;; i++)
        {
        marker = Fcar (list);
+       if (BUFFERP(marker))
+         {
+           XSETBUFFER(last_thing_searched, marker);
+           break;
+         }
+       if (i >= length)
+         break;
        if (NILP (marker))
          {
            search_regs.start[i] = -1;
***************
*** 2847,2856 ****
        search_regs.start[i] = -1;
    }
  
-   if (CONSP(list) && BUFFERP(XCAR(list))) {
-     XSETBUFFER(last_thing_searched, XCAR(list));
-   }
- 
    return Qnil;
  }
  
--- 2854,2859 ----