mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(tags-query-replace): Set arg map' of perform-replace'

Browse Source 
to `multi-query-replace-map'.
This commit is contained in:
Juri Linkov 2008-07-23 01:19:26 +00:00
parent b591f3387a
commit 64b98d1239
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ChangeLog
View File

@ -1,3 +1,16 @@
2008-07-23 Juri Linkov <juri@jurta.org>
* replace.el (multi-query-replace-map): New variable.
(perform-replace): Add processing of new multi-buffer keys bound
to `automatic-all' and `exit-current'. Set `query-flag' to nil
if last input char was `automatic-all'. Set new local variable
`multi-buffer' to t when one of new two keys were typed. Return
non-nil value of `multi-buffer' that tells to calling functions
to continue replacement on the next file.
* progmodes/etags.el (tags-query-replace): Set arg `map' of
`perform-replace' to `multi-query-replace-map'.
2008-07-22 Stefan Monnier <monnier@iro.umontreal.ca> 2008-07-22 Stefan Monnier <monnier@iro.umontreal.ca>
* diff-mode.el (diff-auto-refine-mode): Remove lighter, since it's * diff-mode.el (diff-auto-refine-mode): Remove lighter, since it's

3
lisp/progmodes/etags.el
View File

@ -1865,7 +1865,8 @@ See also the documentation of the variable `tags-file-name'."
;; to the beginning of it so perform-replace ;; to the beginning of it so perform-replace
;; will see it. ;; will see it.
(goto-char (match-beginning 0)))) (goto-char (match-beginning 0))))
tags-loop-operate `(perform-replace ',from ',to t t ',delimited)) tags-loop-operate `(perform-replace ',from ',to t t ',delimited
nil multi-query-replace-map))
(tags-loop-continue (or file-list-form t))) (tags-loop-continue (or file-list-form t)))
(defun tags-complete-tags-table-file (string predicate what) ; Doc string? (defun tags-complete-tags-table-file (string predicate what) ; Doc string?