Changeset 15315


Ignore:
Timestamp:
Apr 11, 2012, 6:47:41 PM (7 years ago)
Author:
gz
Message:

Fix compiler warning

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/hemlock/src/edit-defs.lisp

    r14480 r15315  
    341341            (pattern nil)
    342342            (offset 0))
    343         (flet ((search (mark string direction)
     343        (flet ((ssearch (mark string direction)
    344344                 (find-pattern mark
    345345                               (setq pattern (new-search-pattern :string-insensitive
     
    347347                                                                 string
    348348                                                                 pattern)))))
    349           (declare (inline search))
     349          (declare (inline ssearch))
    350350          (with-mark ((temp-mark (current-point)))
    351351            (unless full-text
     
    366366
    367367            (when (or (null full-text)
    368                       (or (search temp-mark full-text :forward)
    369                           (search temp-mark full-text :backward))
     368                      (or (ssearch temp-mark full-text :forward)
     369                          (ssearch temp-mark full-text :backward))
    370370                      ;; Maybe body changed, try at least to match the start of it
    371371                      (let ((snippet (and (> (length full-text) 60) (subseq full-text 0 60))))
    372372                        (and snippet
    373                              (or (search temp-mark snippet :forward)
    374                                  (search temp-mark snippet :backward)))))
     373                             (or (ssearch temp-mark snippet :forward)
     374                                 (ssearch temp-mark snippet :backward)))))
    375375              (let ((point (move-point-leaving-mark temp-mark)))
    376376                (or (character-offset point offset)
Note: See TracChangeset for help on using the changeset viewer.