Parent Directory | Revision Log | Patch
revision 1.11 by gray, Thu Jul 31 11:02:57 2003 UTC | revision 1.12 by gray, Fri Aug 15 13:40:54 2003 UTC | |
---|---|---|
# | Line 83 | Line 83 |
83 | (let ((keyword nil) | (let ((keyword nil) |
84 | (state (list 'start))) | (state (list 'start))) |
85 | (while (and (not (eq (car state) 'stop)) | (while (and (not (eq (car state) 'stop)) |
86 | (not (bobp)) | |
87 | (= (forward-line -1) 0)) | (= (forward-line -1) 0)) |
88 | (cond | (cond |
89 | ((eq (car state) 'in-comment) | ((eq (car state) 'in-comment) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |