/[cmucl]/src/hemlock/cursor.lisp
ViewVC logotype

Diff of /src/hemlock/cursor.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ram, Wed May 9 13:03:26 1990 UTC revision 1.1.1.1 by ram, Sun Jun 17 12:15:29 1990 UTC
# Line 112  Line 112 
112    (declare (fixnum width start end))    (declare (fixnum width start end))
113    (do ((xpos 0)    (do ((xpos 0)
114         (ypos 0)         (ypos 0)
115         (chars (line-chars line)) losing dy)         (chars (line-chars line))
116           (losing 0)
117           (dy 0))
118        ((= start end) (values xpos ypos))        ((= start end) (values xpos ypos))
119      (declare (fixnum xpos ypos losing dy) (simple-string chars))      (declare (fixnum xpos ypos losing dy) (simple-string chars))
120      (setq losing (%fcwa chars start end losing-char))      (setq losing (%fcwa chars start end losing-char))
# Line 138  Line 140 
140  ;;;  ;;;
141  (defun cached-real-line-length (line width start end)  (defun cached-real-line-length (line width start end)
142    (declare (fixnum width start end) (ignore line))    (declare (fixnum width start end) (ignore line))
143    (let ((offset (- right-open-pos left-open-pos)) bound)    (let ((offset (- right-open-pos left-open-pos))
144            (bound 0))
145      (declare (fixnum offset bound))      (declare (fixnum offset bound))
146      (cond      (cond
147       ((>= start left-open-pos)       ((>= start left-open-pos)
# Line 149  Line 152 
152        (setq bound end)))        (setq bound end)))
153    
154      (do ((xpos 0)      (do ((xpos 0)
155           (ypos 0) losing dy)           (ypos 0)
156             (losing 0)
157             (dy 0))
158          (())          (())
159        (declare (fixnum xpos ypos losing dy))        (declare (fixnum xpos ypos losing dy))
160        (when (= start bound)        (when (= start bound)
# Line 192  Line 197 
197           (offset (mark-charpos start))           (offset (mark-charpos start))
198           (start-number (line-number (mark-line start)))           (start-number (line-number (mark-line start)))
199           (end (window-display-end window))           (end (window-display-end window))
200           (end-number (line-number (mark-line end))) ypos dis-line)           (end-number (line-number (mark-line end)))
201      (declare (fixnum width charpos ypos number end-number)           (ypos 0)
202               (simple-vector dis-lines))           dis-line)
203        (declare (fixnum width charpos ypos number end-number))
204      (cond      (cond
205       ((or (< number start-number)       ((or (< number start-number)
206            (and (= number start-number) (< charpos offset))            (and (= number start-number) (< charpos offset))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5