/[climacs]/climacs/html-syntax.lisp
ViewVC logotype

Diff of /climacs/html-syntax.lisp

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

revision 1.4 by rstrandh, Mon Feb 28 08:51:34 2005 UTC revision 1.5 by rstrandh, Fri Mar 4 07:17:44 2005 UTC
# Line 223  Line 223 
223  (defmethod update-syntax-for-display (buffer (syntax html-syntax) top bot)  (defmethod update-syntax-for-display (buffer (syntax html-syntax) top bot)
224    (with-slots (parser tokens valid-parse) syntax    (with-slots (parser tokens valid-parse) syntax
225       (loop until (= valid-parse (nb-elements tokens))       (loop until (= valid-parse (nb-elements tokens))
226             while (mark< (end-offset (element* tokens valid-parse)) bot)             while (mark<= (end-offset (element* tokens valid-parse)) bot)
227             do (let ((current-token (element* tokens (1- valid-parse)))             do (let ((current-token (element* tokens (1- valid-parse)))
228                      (next-token (element* tokens valid-parse)))                      (next-token (element* tokens valid-parse)))
229                  (setf (slot-value next-token 'state)                  (setf (slot-value next-token 'state)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5