Perlでいうところの s/regexp/replaced/e を知りたかったので 調べてみました. 実現方法 search-forward(re-search-forwardと同じ)と replace-matchを組み合わせる ことで実現できます. query-replace-regexp-evalといういかにもな名前の 関数があったのですが, obsoleteなので使わない方が良いでしょう. 例 (defun test (str) (with-temp-buffer (insert str) (goto-char (point-min)) (while (re-search-forward "[1-9][0-9]*" nil t) (let ((matched-num (string-to-number (match-string 0)))) (replace-match (numbe