Changeset 13586 for release

Timestamp:

Apr 6, 2010, 7:38:15 PM (15 years ago)

Author:

R. Matthew Emerson

Message:

r13585 from trunk

Location:

release/1.5/source

Files:

• . (modified) (1 prop)
• cocoa-ide/hemlock/src/search1.lisp (modified) (2 diffs)

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

@@ -379 +379 @@
     (when (zerop len) (editor-error "Zero length search string not allowed."))
     ;; The default jump is the length of the search string.
-    (dotimes (i len)
+    (dotimes (i (length jumps))
       (setf (aref jumps i) len))
     ;; For chars in the string the jump is the distance from the end.
@@ -385 +385 @@
       (setf (aref jumps (funcall access-fun vec i)) (- len i 1)))
     jumps))
+
+