理系学生日記

おまえはいつまで学生気分なのか

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))))