emacs搜索并替换为正则表达式

Question

With emacs, how can I search and replace regular expressions within a buffer? How can I do this programmatically by evaluating elisp in addition to interactively? For example, replace one or more spaces with tabs, where I need to match ' +' (one or more spaces) with something like Cq-TAB . Is this possible?

Answer 1

我相信答案是Mx replace-regexp

Answer 2

Programmatically you can do it as follows:

(defun region-replace-multiple-spaces-with-single-space(beg end)
  (interactive "*r")
  (save-restriction
    (narrow-to-region beg end)
    (save-excursion
      (goto-char (point-min))
      (while (search-forward-regexp " +" nil t)
    (replace-match " " nil nil)))))

Answer 3

I've got a multi-purpose replace-regexp :

• if region is active, replace regexp in region
• with numeric argument, call query-replace-regexp
• otherwise, replace regexp on current line (actually very useful)

Here's the code:

(global-set-key (kbd "C-/") 'replace-regexp-dwim)

(defun replace-regexp-dwim (arg)
  (interactive "P")
  (destructuring-bind (from to &rest)
      (query-replace-read-args "Replace regexp" nil)
    (if arg
        (query-replace-regexp from to)
      (let ((st (if (region-active-p)
                    (region-beginning)
                  (line-beginning-position)))
            (en (if (region-active-p)
                    (region-end)
                  (line-end-position))))
        (goto-char st)
        (while (re-search-forward from en t)
          (replace-match to nil t))))))