Guard advancing past leading meta-comments.
This commit is contained in:
parent
e7aca521db
commit
ad428cd1cd
|
@ -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) ?\<)
|
||||
|
|
Loading…
Reference in New Issue