Changeset 13586 for release/1.5/source


Ignore:
Timestamp:
Apr 7, 2010, 2:38:15 AM (9 years ago)
Author:
rme
Message:

r13585 from trunk

Location:
release/1.5/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.5/source

  • release/1.5/source/cocoa-ide/hemlock/src/search1.lisp

    r12635 r13586  
    379379    (when (zerop len) (editor-error "Zero length search string not allowed."))
    380380    ;; The default jump is the length of the search string.
    381     (dotimes (i len)
     381    (dotimes (i (length jumps))
    382382      (setf (aref jumps i) len))
    383383    ;; For chars in the string the jump is the distance from the end.
     
    385385      (setf (aref jumps (funcall access-fun vec i)) (- len i 1)))
    386386    jumps))
     387
     388
    387389
    388390
Note: See TracChangeset for help on using the changeset viewer.