1214 |
|
|
1215 |
(defun replace-match-maybe-edit (newtext fixedcase literal noedit match-data) |
(defun replace-match-maybe-edit (newtext fixedcase literal noedit match-data) |
1216 |
"Make a replacement with `replace-match', editing `\\?'. |
"Make a replacement with `replace-match', editing `\\?'. |
1217 |
NEXTEXT, FIXEDCASE, LITERAL are just passed on. If NOEDIT is true, no |
NEWTEXT, FIXEDCASE, LITERAL are just passed on. If NOEDIT is true, no |
1218 |
check for `\\?' is made to save time. MATCH-DATA is used for the |
check for `\\?' is made to save time. MATCH-DATA is used for the |
1219 |
replacement. In case editing is done, it is changed to use markers. |
replacement. In case editing is done, it is changed to use markers. |
1220 |
|
|
1380 |
(if (not query-flag) |
(if (not query-flag) |
1381 |
(let ((inhibit-read-only |
(let ((inhibit-read-only |
1382 |
query-replace-skip-read-only)) |
query-replace-skip-read-only)) |
1383 |
(unless noedit |
(unless (or literal noedit) |
1384 |
(replace-highlight (nth 0 real-match-data) |
(replace-highlight (nth 0 real-match-data) |
1385 |
(nth 1 real-match-data))) |
(nth 1 real-match-data))) |
1386 |
(setq noedit |
(setq noedit |