(perform-replace): Don't clear NODENT when computing the replacement string.
This commit is contained in:
parent
7b3eaed564
commit
fbea9ee830
2 changed files with 8 additions and 2 deletions
|
@ -1,3 +1,8 @@
|
|||
2007-01-12 Richard Stallman <rms@gnu.org>
|
||||
|
||||
* replace.el (perform-replace): Don't clear NODENT when computing
|
||||
the replacement string.
|
||||
|
||||
2007-01-11 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
* net/tramp.el (tramp-handle-file-local-copy): Set
|
||||
|
|
|
@ -1406,6 +1406,8 @@ make, or the user didn't cancel the call."
|
|||
(search-string from-string)
|
||||
(real-match-data nil) ; the match data for the current match
|
||||
(next-replacement nil)
|
||||
;; This is non-nil if we know there is nothing for the user
|
||||
;; to edit in the replacement.
|
||||
(noedit nil)
|
||||
(keep-going t)
|
||||
(stack nil)
|
||||
|
@ -1517,8 +1519,7 @@ make, or the user didn't cancel the call."
|
|||
(set-match-data real-match-data)
|
||||
(setq next-replacement
|
||||
(funcall (car replacements) (cdr replacements)
|
||||
replace-count)
|
||||
noedit nil))
|
||||
replace-count) nil))
|
||||
(if (not query-flag)
|
||||
(let ((inhibit-read-only
|
||||
query-replace-skip-read-only))
|
||||
|
|
Loading…
Add table
Reference in a new issue