Changeset 15909


Ignore:
Timestamp:
Sep 20, 2013, 9:25:57 PM (8 years ago)
Author:
gz
Message:

Fix a braino in previous checkin

File:
1 edited

Legend:

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

    r15906 r15909  
    263263                               :comment))
    264264              do (when (member syntax '(:symbol-quote :string-quote))
    265                    (decf start-offset)
    266                    (incf end-offset))
     265                   (when (< 0 start-offset)
     266                     (decf start-offset))
     267                   (when (< end-offset (line-length line))
     268                     (incf end-offset)))
    267269              unless (and (eq line start-line) (<= end-offset start-charpos))
    268270              nconc (let* ((type (case syntax
    269                                    (:char-quote nil)
    270                                    (:symbol-quote
    271                                     (incf end-offset)
    272                                     nil)
    273                                    (:string-quote
    274                                     (decf start-offset)
    275                                     (incf end-offset)
    276                                     :string)
     271                                   ((:char-quote :symbol-quote) nil)
     272                                   (:string-quote :string)
    277273                                   (t (loop for i from start-offset as nsemi upfrom 0
    278274                                        until (or (eql nsemi 3)
Note: See TracChangeset for help on using the changeset viewer.