12. 正規表現の検索

• 12.7 re-search-forward についての練習問題

二行以上続く空行にマッチする正規表現を検索する関数を書きなさい。

(defun 12-7regexp-prac ()
  (interactive)
  (if (re-search-forward "\\(^$\\)\n\\1\n")
      (goto-char (match-beginning 1))))

上記のように，作ってみましたが，あまり自信はありません。「二行以上続く空行にマッチする正規表現」はどのように表現すればいいのでしょう？