62 |
:group 'matching |
:group 'matching |
63 |
:version "21.3") |
:version "21.3") |
64 |
|
|
65 |
(defun query-replace-read-args (string regexp-flag) |
(defun query-replace-read-args (string regexp-flag &optional noerror) |
66 |
(barf-if-buffer-read-only) |
(unless noerror |
67 |
|
(barf-if-buffer-read-only)) |
68 |
(let (from to) |
(let (from to) |
69 |
(if query-replace-interactive |
(if query-replace-interactive |
70 |
(setq from (car (if regexp-flag regexp-search-ring search-ring))) |
(setq from (car (if regexp-flag regexp-search-ring search-ring))) |
1129 |
(save-excursion |
(save-excursion |
1130 |
(funcall search-function search-string limit t) |
(funcall search-function search-string limit t) |
1131 |
(setq real-match-data (match-data))) |
(setq real-match-data (match-data))) |
1132 |
(save-excursion (recursive-edit)) |
(save-excursion |
1133 |
|
(save-window-excursion |
1134 |
|
(recursive-edit))) |
1135 |
(goto-char opos)) |
(goto-char opos)) |
1136 |
(set-match-data real-match-data) |
(set-match-data real-match-data) |
1137 |
;; Before we make the replacement, |
;; Before we make the replacement, |