How do I replace string across all open buffers in emacs? I found this on internet but option 'Y' to change all buffers in one shot doesn't work and I need to change one buffer for time with '!' option.
;; Query Replace in open Buffers
(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)))))