>>106
(save-excursion
(let* ((beg (if (search-forward-regexp "^\\*[^*].*$" nil t) (line-number-at-pos)))
(end (if (search-forward-regexp "^\\*[^*].*$" nil t) (line-number-at-pos))))
(- end beg)))
これをM-:にコピペすれば行数が出るよ
エラーチェックとか見出し行を含めるのかとか考慮してないけどね