普通に書くならば、 (let (matched) (save-excursion (goto-char (point-min)) (while (re-search-forward regexp nil t) (push (match-string 0) matched)) (nreverse matched))) 正直ヘドが出るコードだ。 だがloopマクロを使うと簡潔に書ける。 (save-exc…