Jak wyszukiwać i zamieniać w całym buforze?

17

Wyszukaj i zamień, przez M-%i !, odbywa się od bieżącej pozycji do końca bufora. Jak mogę to zrobić dla całego bufora? Dzięki.

StackExchange dla wszystkich
źródło
2
Sugeruję zmianę tytułu na „wyszukaj i zamień cały bufor”. Globalnie może odnosić się również do całych projektów.
Malabarba
1
Jest to obszar, w którym Vim / Evil jest trudny do pokonania::%s/foo/bar
shosti
@shosti: Właściwie myślę, że twoja metoda wymaga więcej naciśnięć klawiszy. Tylko
mówię

Odpowiedzi:

14

Nie widzę takiego wsparcia przy jednoczesnym zachowaniu pozycji wyjściowej. (Nie widzę sposobu na zawijanie do początku bufora, gdy wyszukiwanie dobiega końca).

Najlepszym rozwiązaniem jest M-<przejście do początku bufora, a następnie po zakończeniu query-replacenaciśnij przycisk, C-uC-spaceC-uC-spaceaby przejść z powrotem do punktu początkowego.

Jordon Biondo
źródło
1
Działa, gdy transient-mark-modejest włączony. W przeciwnym razie C-SPC C-SPCtymczasowo włączytransient-mark-mode
nispio
5
Nie trzeba ręcznie ustawiać znaku za pomocą C-SPC. M- <(i wiele innych poleceń, które potencjalnie „przesuwają punkt daleko”) robi to za Ciebie.
Mathias Dahl,
9

Możesz dodać następujące polecenie do pliku inicjującego emacsa i powiązać go z wybranym naciśnięciem klawisza.

(defun replace-regexp-entire-buffer (pattern replacement)
  "Perform regular-expression replacement throughout buffer."
  (interactive
   (let ((args (query-replace-read-args "Replace" t)))
     (setcdr (cdr args) nil)    ; remove third value returned from query---args
     args))
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward pattern nil t)
      (replace-match replacement))))
Sue D. Nymme
źródło
9

Możesz wykonać następujące kroki:

  • C-x h- Wybierz cały bufor lub M-< - Idź na górę bufora
  • M-% - Zainicjuj query-replace
  • ! - Wymuś zastąpienie wszystkich
  • C-u C-SPC C-u C-SPC - Wróć do pozycji wyjściowej
Kaushal Modi
źródło
To powinno przyciągnąć więcej uwagi.
Indra
3

Możesz dodać to do init.elpliku, aby M-%domyślnie zaktualizować zachowanie zastępowania słowa w całym buforze:

(defun my/query-replace (from-string to-string &optional delimited start end)
  "Replace some occurrences of FROM-STRING with TO-STRING.  As each match is
found, the user must type a character saying what to do with it. This is a
modified version of the standard `query-replace' function in `replace.el',
This modified version defaults to operating on the entire buffer instead of
working only from POINT to the end of the buffer. For more information, see
the documentation of `query-replace'"
  (interactive
   (let ((common
      (query-replace-read-args
       (concat "Query replace"
           (if current-prefix-arg " word" "")
           (if (and transient-mark-mode mark-active) " in region" ""))
       nil)))
     (list (nth 0 common) (nth 1 common) (nth 2 common)
       (if (and transient-mark-mode mark-active)
           (region-beginning)
         (buffer-end -1))
       (if (and transient-mark-mode mark-active)
           (region-end)
         (buffer-end 1)))))
  (perform-replace from-string to-string t nil delimited nil nil start end))
;; Replace the default key mapping
(define-key esc-map "%" 'my/query-replace)

I uzyskać to samo zachowanie od query-replace-regexp:

(defun my/query-replace-regexp (regexp to-string &optional delimited start end)
  "Replace some things after point matching REGEXP with TO-STRING.  As each
match is found, the user must type a character saying what to do with
it. This is a modified version of the standard `query-replace-regexp'
function in `replace.el', This modified version defaults to operating on the
entire buffer instead of working only from POINT to the end of the
buffer. For more information, see the documentation of `query-replace-regexp'"
  (interactive
   (let ((common
      (query-replace-read-args
       (concat "Query replace"
           (if current-prefix-arg " word" "")
           " regexp"
           (if (and transient-mark-mode mark-active) " in region" ""))
       t)))
     (list (nth 0 common) (nth 1 common) (nth 2 common)
       (if (and transient-mark-mode mark-active)
           (region-beginning)
         (buffer-end -1))
       (if (and transient-mark-mode mark-active)
           (region-end)
         (buffer-end 1)))))
  (perform-replace regexp to-string t t delimited nil nil start end))
;; Replace the default key mapping
(define-key esc-map [?\C-%] 'my/query-replace-regexp)
nispio
źródło
Bardzo przydatne. Dzięki.
NVaughan,
2

Jeśli używasz Sopli , możesz wyszukiwać i zamieniać cały bufor (lub wiele buforów, plików lub celów zakładek).

I w przeciwieństwie do query-replace(np. C-x h M-%):

  • Możesz nawigować po meczach w dowolnej kolejności .

  • Wymiana jest na żądanie: nie musisz odwiedzać każdego meczu i odpowiadać, czy chcesz go wymienić.

Rysował
źródło
0

Jest to rozwiązanie, którego obecnie używam, zaczyna się od początku bufora i powróci do starego punktu po wymianie.

(defun query-replace-from-top ()
  (interactive)
  (let ((orig-point (point)))
    (save-excursion
      (goto-char (point-min))
      (call-interactively 'query-replace))
    (message "Back to old point.")
    (goto-char orig-point)))
(bind-key* "M-%" 'query-replace-from-top)
CodyChan
źródło