- 111 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/02/01(月) 19:31:23.68 .net]
- >>106
見やすくしたバージョン 見出し行を含んだ行数を*Messages*に表示するよ
(defun count-lines-between-headline ()
(interactive)
(message "--- top of buffer ---")
(save-excursion
(goto-char (point-min))
(let (ln (prev 1))
(catch 'break
(while t
(if (search-forward-regexp "^\\(\\*[^*\n]+\\)$" nil t)
(progn
(setq ln (line-number-at-pos))
(message "%d" (- ln prev))
(message "%s" (match-string 1))
(setq prev ln))
(goto-char (point-max))
(message "%d" (- (line-number-at-pos) prev))
(throw 'break nil))))
(message "--- end of buffer ---"))))
|
 |
