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

Ответ 1

M-x ibuffer RET t U

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

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

Изменить: версия non-regexp 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))

Ответ 2

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

Зайдите в Emacs Wiki для SearchBuffers. Интересно было бы moccur-edit и icicles.

Ответ 3

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

Позвольте мне упомянуть также 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).

Ответ 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)))))