re-search-forward の練習問題

いつの間にやら 11 章に突入していたのでした．

連続した2つ以上の空行に一致する正規表現を探査する関数を書いてみよ。

問題の意味がよくわからんけど，こういうことかなと思う．

(defun search-successive-blank-lines ()
  (interactive)
  (if (re-search-forward "^[ \t]*\n\\(^[ \t]*\n\\)+" nil t)
      (goto-char (match-beginning 0))
    (goto-char (point-max))))