09/04/09 19:24:57 0h5Po06Q0
>>297
restructuredTextがわからんし、テストもしてないが
(save-excursion
(goto-char (point-min))
;;反復処理が必要なければwhileをwhenにする
(while (scan-buffer "^\\(.*\\)\\n-+$" :regexp t :tail t)
(let ((title (match-string 1)))
;; title に「タイトル」の行が
)))
09/04/09 19:24:57 0h5Po06Q0
>>297
restructuredTextがわからんし、テストもしてないが
(save-excursion
(goto-char (point-min))
;;反復処理が必要なければwhileをwhenにする
(while (scan-buffer "^\\(.*\\)\\n-+$" :regexp t :tail t)
(let ((title (match-string 1)))
;; title に「タイトル」の行が
)))