Commit ad428cd1 authored by Ken Manheimer's avatar Ken Manheimer

Guard advancing past leading meta-comments.

parent e7aca521
......@@ -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) ?\<)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment