Re: replace deprecated function ?

[Emanuel Berg]

> (defun replace-list-ask (list-pairs)
>   (save-excursion
>     (cl-loop for (search . replace) in list-pairs do
>              (goto-char (point-min))
>              (query-replace-regexp search replace) )))

Perhaps better looking: 

(defun replace-list-ask-2 (list-pairs)
  (cl-loop for (search . replace) in list-pairs do
           (query-replace-regexp search replace
                                 nil (point-min) (point-max)) ))

;; (replace-list-ask-2 '(("james" . "James") ("blish" . "Blish")))

;; james blish james blish

-- 
underground experts united
http://user.it.uu.se/~embe8573