diff options
| author | Juri Linkov <juri@linkov.net> | 2016-02-10 02:46:37 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2016-02-10 02:46:37 +0200 |
| commit | 6bac035d6014662e19bf400ce51585b84a1d655b (patch) | |
| tree | eaa74f5276c9049eaa4528c088d20f5607d3555b /lisp/replace.el | |
| parent | ee909aa2bb3c30eb3b842426088a32a4504a0d0d (diff) | |
| download | emacs-6bac035d6014662e19bf400ce51585b84a1d655b.tar.gz emacs-6bac035d6014662e19bf400ce51585b84a1d655b.tar.bz2 emacs-6bac035d6014662e19bf400ce51585b84a1d655b.zip | |
* lisp/replace.el (replace-match-maybe-edit): Make arg `backward' optional.
Doc fix.
(replace-search, replace-highlight): Make arg `backward' optional.
(Bug#18388)
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index dfe8cd739a2..488eff7928a 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1980,13 +1980,15 @@ but coerced to the correct value of INTEGERS." new))) (match-data integers reuse t))) -(defun replace-match-maybe-edit (newtext fixedcase literal noedit match-data backward) +(defun replace-match-maybe-edit (newtext fixedcase literal noedit match-data + &optional backward) "Make a replacement with `replace-match', editing `\\?'. FIXEDCASE, LITERAL are passed to `replace-match' (which see). After possibly editing it (if `\\?' is present), NEWTEXT is also passed to `replace-match'. 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. +In case editing is done, it is changed to use markers. BACKWARD is +used to reverse the replacement direction. The return value is non-nil if there has been no `\\?' or NOEDIT was passed in. If LITERAL is set, no checking is done, anyway." @@ -2027,7 +2029,7 @@ It is called with three arguments, as if it were `re-search-forward'.") (defun replace-search (search-string limit regexp-flag delimited-flag - case-fold-search backward) + case-fold-search &optional backward) "Search for the next occurrence of SEARCH-STRING to replace." ;; Let-bind global isearch-* variables to values used ;; to search the next replacement. These let-bindings @@ -2061,7 +2063,7 @@ It is called with three arguments, as if it were (defun replace-highlight (match-beg match-end range-beg range-end search-string regexp-flag delimited-flag - case-fold-search backward) + case-fold-search &optional backward) (if query-replace-highlight (if replace-overlay (move-overlay replace-overlay match-beg match-end (current-buffer)) |