Changeset 13427


Ignore:
Timestamp:
Feb 2, 2010, 3:16:33 PM (10 years ago)
Author:
gz
Message:

Strip trailing :'s in symbol-at-point, so can meta-. on Error In FOO:

File:
1 edited

Legend:

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

    r13186 r13427  
    5757            (move-mark mark2 mark1)
    5858            (form-offset mark2 1))))
     59    (loop until (or (mark= mark1 mark2) (not (eql (previous-character mark2) #\:)))
     60          do (mark-before mark2))
    5961    (unless (mark= mark1 mark2)
    6062      (region-to-string (region mark1 mark2)))))
Note: See TracChangeset for help on using the changeset viewer.