Guard advancing past leading meta-comments.

This commit is contained in:
Ken Manheimer 2003-03-03 04:05:03 +00:00
parent e7aca521db
commit ad428cd1cd
1 changed files with 6 additions and 4 deletions

View File

@ -1360,10 +1360,12 @@ problem as best as we can determine."
(set-buffer funcbuffer)
(count-lines
(point-min)
(string-match "^\\([^#]\\|#[^#]\\|#$\\)"
(buffer-substring (point-min)
(point-max)
funcbuffer)))))))
(max (point-min)
(string-match "^\\([^#]\\|#[^#]\\|#$\\)"
(buffer-substring (point-min)
(point-max)
funcbuffer))
))))))
(list lineno funcbuffer))
((= (elt filename 0) ?\<)