mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(replace-match-maybe-edit): Doc fix.

Browse Source 
(perform-replace): Don't call `replace-highlight' when automatic
replacement is requested in literal mode, since it is intended
only to highlight words during entering a new replacement string
for \? in non-literal mode.
This commit is contained in:
Juri Linkov 2004-12-12 22:06:30 +00:00
parent 98e008e989
commit 15fd7d5da5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/replace.el
View File

@ -1214,7 +1214,7 @@ but coerced to the correct value of INTEGERS."
(defun replace-match-maybe-edit (newtext fixedcase literal noedit match-data)
"Make a replacement with `replace-match', editing `\\?'.
NEXTEXT, FIXEDCASE, LITERAL are just passed on. If NOEDIT is true, no
NEWTEXT, FIXEDCASE, LITERAL are just passed on. If NOEDIT is true, no
check for `\\?' is made to save time. MATCH-DATA is used for the
replacement. In case editing is done, it is changed to use markers.
@ -1380,7 +1380,7 @@ make, or the user didn't cancel the call."
(if (not query-flag)
(let ((inhibit-read-only
query-replace-skip-read-only))
(unless noedit
(unless (or literal noedit)
(replace-highlight (nth 0 real-match-data)
(nth 1 real-match-data)))
(setq noedit