| commit | 1ec5e41d0ec506abe02ac223596430f98cb3b951 | |
| author | Juri Linkov <juri@jurta.org> | |
| Thu, 6 Sep 2012 08:33:17 +0000 (6 11:33 +0300) | ||
| committer | Juri Linkov <juri@jurta.org> | |
| Thu, 6 Sep 2012 08:33:17 +0000 (6 11:33 +0300) | ||
| tree | 3bc25b459a178a41c949aa6f6b1b39a2220cbcf9 | treesnapshot (tar.gz zip) |
| parent | a864ef14570715dc3233fbbf2e9da7aa8f29729e | commitdiff |
Use `isearch-search-fun' in `perform-replace' (bug#10885, bug#10887).
* lisp/replace.el (replace-search-function)
(replace-re-search-function): Set default values to nil.
(perform-replace): Let-bind isearch-related variables based on
replace-related values, call `isearch-search-fun' and let-bind
the result to `search-function'. Remove code that sets
`search-function' and `search-string' separately for
`delimited-flag'.
(replace-highlight): Add new argument `delimited-flag' and
rename other arguments to the names used in `perform-replace'.
Let-bind `isearch-word' to the argument `delimited-flag'.
* lisp/replace.el (replace-search-function)
(replace-re-search-function): Set default values to nil.
(perform-replace): Let-bind isearch-related variables based on
replace-related values, call `isearch-search-fun' and let-bind
the result to `search-function'. Remove code that sets
`search-function' and `search-string' separately for
`delimited-flag'.
(replace-highlight): Add new argument `delimited-flag' and
rename other arguments to the names used in `perform-replace'.
Let-bind `isearch-word' to the argument `delimited-flag'.
| lisp/ChangeLog | diffblobblamehistory | |
| lisp/replace.el | diffblobblamehistory |