Ignore:
Timestamp:
Dec 11, 2010, 3:52:40 AM (9 years ago)
Author:
gb
Message:

Compensate for CRLF line-termination in meta-.
Fixes ticket:741, but note that there may be other problems
with (e.g.) variable-length character encodings.

File:
1 edited

Legend:

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

    r12564 r14480  
    532532          (setq start middle))))))
    533533
     534(defun buffer-lines-before-absolute-position (buffer position)
     535  (do* ((prev (line-previous (buffer-line-at-absolute-position buffer position))
     536              (line-previous prev))
     537        (n 0))
     538       ((null prev) n)
     539    (declare (fixnum n))
     540    (incf n)))
     541
    534542;; Called whenever change a line's next or previous pointer.  Don't update immediately
    535543;; so don't thrash when inserting multiple lines.
Note: See TracChangeset for help on using the changeset viewer.