Changeset 12852


Ignore:
Timestamp:
Sep 19, 2009, 4:17:07 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-cm/list-definitions.lisp

    r12782 r12852  
    1616;;;
    1717;;;      Mod History, most recent first:
    18 ;;;      8/31/9  version 0.2b2
    19 ;;;              Modified to work with Context-Menu mechanism.
     18;;;      9/19/9  Added parse-over-block to list-definitions.
     19;;;      8/31/9  Modified to work with Context-Menu mechanism.
    2020;;;              Numerous interface suggestions, Rainer Joswig.
    21 ;;;      8/17/9  version 0.2b1
    22 ;;;              Added position history list and file history list.
    23 ;;;      8/12/9  version 0.1b3
    24 ;;;              Numerous interface suggestions, Alexander Repenning.
    25 ;;;      8/10/9  version 0.1b1
    26 ;;;              First cut.
     21;;;      8/17/9  Added position history list and file history list.
     22;;;      8/12/9  Numerous interface suggestions, Alexander Repenning.
     23;;;      8/10/9  First cut.
    2724;;;
    2825;;; ----------------------------------------------------------------------------
     
    216213           (text-view (gui::text-pane-text-view pane))
    217214           (buffer (gui::hemlock-buffer text-view))
    218            (def-mark (clone (hi::buffer-start-mark buffer)))
    219            (objc-mark (clone (hi::buffer-start-mark buffer)))
    220            (def-alist (get-defs def-mark *def-search-pattern*))
    221            (objc-alist (get-defs objc-mark *objc-defmethod-search-pattern* t)))
    222       (when objc-alist
    223         (setq def-alist
    224               (if alpha-p
    225                 (merge 'list def-alist objc-alist #'string-lessp :key #'get-name)
    226                 (merge 'list def-alist objc-alist #'hi::mark< :key #'cdr))))
    227       def-alist)))
     215           (hi::*current-buffer* buffer))
     216      (hemlock::parse-over-block (hi::mark-line (hi::buffer-start-mark buffer))
     217                                 (hi::mark-line (hi::buffer-end-mark buffer)))
     218      (let* ((def-mark (clone (hi::buffer-start-mark buffer)))
     219             (objc-mark (clone (hi::buffer-start-mark buffer)))
     220             (def-alist (get-defs def-mark *def-search-pattern*))
     221             (objc-alist (get-defs objc-mark *objc-defmethod-search-pattern* t)))
     222        (when objc-alist
     223          (setq def-alist
     224                (if alpha-p
     225                  (merge 'list def-alist objc-alist #'string-lessp :key #'get-name)
     226                  (merge 'list def-alist objc-alist #'hi::mark< :key #'cdr))))
     227        def-alist))))
    228228
    229229(defun definition-info (mark &optional objc-p)
Note: See TracChangeset for help on using the changeset viewer.