Changeset 12851


Ignore:
Timestamp:
Sep 19, 2009, 4:16:37 PM (10 years ago)
Author:
gfoy
Message:

Added parse-over-block to list-definitions, duh.

File:
1 edited

Legend:

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

    r12749 r12851  
    1616;;;
    1717;;;      Mod History, most recent first:
    18 ;;;      8/17/9  version 0.2b1
    19 ;;;              Added position history list and file history list.
    20 ;;;      8/12/9  version 0.1b3
    21 ;;;              Numerous interface suggestions, Alexander Repenning.
    22 ;;;      8/10/9  version 0.1b1
    23 ;;;              First cut.
     18;;;      9/19/9  Added parse-over-block to list-definitions.
     19;;;      8/17/9  Added position history list and file history list.
     20;;;      8/12/9  Numerous interface suggestions, Alexander Repenning.
     21;;;      8/10/9  First cut.
    2422;;;
    2523;;; ----------------------------------------------------------------------------
     
    213211           (text-view (gui::text-pane-text-view pane))
    214212           (buffer (gui::hemlock-buffer text-view))
    215            (def-mark (clone (hi::buffer-start-mark buffer)))
    216            (objc-mark (clone (hi::buffer-start-mark buffer)))
    217            (def-alist (get-defs def-mark *def-search-pattern*))
    218            (objc-alist (get-defs objc-mark *objc-defmethod-search-pattern* t)))
    219       (when objc-alist
    220         (setq def-alist
    221               (if alpha-p
    222                 (merge 'list def-alist objc-alist #'string-lessp :key #'get-name)
    223                 (merge 'list def-alist objc-alist #'hi::mark< :key #'cdr))))
    224       def-alist)))
     213           (hi::*current-buffer* buffer))
     214      (hemlock::parse-over-block (hi::mark-line (hi::buffer-start-mark buffer))
     215                                 (hi::mark-line (hi::buffer-end-mark buffer)))
     216      (let* ((def-mark (clone (hi::buffer-start-mark buffer)))
     217             (objc-mark (clone (hi::buffer-start-mark buffer)))
     218             (def-alist (get-defs def-mark *def-search-pattern*))
     219             (objc-alist (get-defs objc-mark *objc-defmethod-search-pattern* t)))
     220        (when objc-alist
     221          (setq def-alist
     222                (if alpha-p
     223                  (merge 'list def-alist objc-alist #'string-lessp :key #'get-name)
     224                  (merge 'list def-alist objc-alist #'hi::mark< :key #'cdr))))
     225        def-alist))))
    225226
    226227(defun definition-info (mark &optional objc-p)
Note: See TracChangeset for help on using the changeset viewer.