Changeset 12785


Ignore:
Timestamp:
Sep 8, 2009, 3:39:39 PM (10 years ago)
Author:
gfoy
Message:

Fixed add-top-level-position for objc.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp

    r12782 r12785  
    507507      (setq start-mark (hemlock::top-level-offset mark -1)))
    508508    (when start-mark
    509       (setq def-info (definition-info start-mark))
     509      (let* ((line-end (hi::line-end (hi::copy-mark start-mark :temporary)))
     510             (def-mark (hi::copy-mark start-mark :temporary))
     511             (objc-mark (hi::copy-mark start-mark :temporary))
     512             (def-p (hi::find-pattern def-mark *def-search-pattern* line-end))
     513             (objc-p (hi::find-pattern objc-mark *objc-defmethod-search-pattern* line-end)))
     514        (cond (def-p
     515               (setq def-info (definition-info start-mark)))
     516              (objc-p
     517               (setq def-info (definition-info start-mark t)))))
    510518      (when (and def-info path)
    511519        (maybe-add-history-entry *position-history-list* def-info path)))))
Note: See TracChangeset for help on using the changeset viewer.