Commit 99c5c2ff authored by Ken Manheimer's avatar Ken Manheimer

Guard advancing past leading meta-comments.

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