Как мне "M-x replace-string" для всех буферов в Emacs?

Question

Как мне "Mx replace-string" для всех буферов в emacs?

Answer 1

М-х ibuffer RET т U

Но вы, вероятно, захотите быть более ограничительным, потому что он прервет работу, если не сможет выполнить замену - например, обнаруживает доступный только для чтения буфер, содержащий соответствующее имя файла.

C-h m в ibuffer, чтобы прочитать справку по режиму и узнать, как легко пометить только нужные вам буферы.

Редактировать: не-регулярную версию ibuffer-do-replace-regexp можно легко написать, изменив исходное определение:

;; defines ibuffer-do-replace-string
(define-ibuffer-op replace-string (from-str to-str)
  "Perform a `replace-string' in marked buffers."
  (:interactive
   (let* ((from-str (read-from-minibuffer "Replace string: "))
          (to-str (read-from-minibuffer (concat "Replace " from-str
                                                " with: "))))
     (list from-str to-str))
   :opstring "replaced in"
   :complex t
   :modifier-p :maybe)
  (save-window-excursion
    (switch-to-buffer buf)
    (save-excursion
      (goto-char (point-min))
      (let ((case-fold-search ibuffer-case-fold-search))
        (while (search-forward from-str nil t)
          (replace-match to-str nil t))))
    t))

Answer 2

Существует множество вариантов, это зависит от того, как вы хотите это сделать.

Ознакомьтесь с Emacs Wiki для SearchBuffers .Интересно было бы moccur-edit и сосульки.

Answer 3

Спасибо Трею за упоминание Сосульки поиск буфера в этом отношении.

Позвольте мне также упомянуть Q (dired-do-query-replace) вDired.Очень кстати.И имейте в виду, что вы можете легко пометить наборы файлов в Dired с помощью таких клавиш (и их больше):

• % m (dired-mark-files-regexp) - пометитьфайлы, имена которых соответствуют регулярному выражению
• % g (dired-mark-files-containing-regexp) - помечать файлы, текст (содержимое) которых соответствует регулярному выражению
• *. (dired-mark-extension) - помечать файлы, имена которых имеют одинаковое расширение (например, .el)

Обязательно загружать стандартную библиотеку dired-x.el (и, возможно, dired-aux.el).

Answer 4

Я нашел это на сайте давным-давно, извините, я не помню источник. Если вы найдете буфер только для чтения, он остановится, поэтому будьте осторожны.

Просто поместите это в свой .emacs

(defun query-replace-in-open-buffers (arg1 arg2)
  "query-replace in open files"
  (interactive "sQuery Replace in open Buffers: \nsquery with: ")
  (mapcar
   (lambda (x)
     (find-file x)
     (save-excursion
       (beginning-of-buffer)
       (query-replace arg1 arg2)))
   (delq
    nil
    (mapcar
     (lambda (x)
       (buffer-file-name x))
     (buffer-list)))))