Mercurial > emacs
comparison lisp/progmodes/etags.el @ 28704:351e38e6b866
(tags-query-replace): Add parameters START
and END. Construct a form with additional arguments for
perform-replace.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 25 Apr 2000 19:17:18 +0000 |
parents | 9669a6691caa |
children | d53c2c6bc56f |
comparison
equal
deleted
inserted
replaced
28703:8cc58b0b674d | 28704:351e38e6b866 |
---|---|
1616 (list 're-search-forward (list 'quote regexp) nil t) | 1616 (list 're-search-forward (list 'quote regexp) nil t) |
1617 tags-loop-operate nil) | 1617 tags-loop-operate nil) |
1618 (tags-loop-continue (or file-list-form t)))) | 1618 (tags-loop-continue (or file-list-form t)))) |
1619 | 1619 |
1620 ;;;###autoload | 1620 ;;;###autoload |
1621 (defun tags-query-replace (from to &optional delimited file-list-form) | 1621 (defun tags-query-replace (from to &optional delimited start end file-list-form) |
1622 "Query-replace-regexp FROM with TO through all files listed in tags table. | 1622 "Query-replace-regexp FROM with TO through all files listed in tags table. |
1623 Third arg DELIMITED (prefix arg) means replace only word-delimited matches. | 1623 Third arg DELIMITED (prefix arg) means replace only word-delimited matches. |
1624 If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace | 1624 If you exit (\\[keyboard-quit] or ESC), you can resume the query-replace |
1625 with the command \\[tags-loop-continue]. | 1625 with the command \\[tags-loop-continue]. |
1626 | 1626 |
1632 ;; When we find a match, move back | 1632 ;; When we find a match, move back |
1633 ;; to the beginning of it so perform-replace | 1633 ;; to the beginning of it so perform-replace |
1634 ;; will see it. | 1634 ;; will see it. |
1635 '(goto-char (match-beginning 0)))) | 1635 '(goto-char (match-beginning 0)))) |
1636 tags-loop-operate (list 'perform-replace | 1636 tags-loop-operate (list 'perform-replace |
1637 (list 'quote from) (list 'quote to) | 1637 (list 'quote from) (list 'quote to) nil nil |
1638 t t (list 'quote delimited))) | 1638 t t (list 'quote delimited))) |
1639 (tags-loop-continue (or file-list-form t))) | 1639 (tags-loop-continue (or file-list-form t))) |
1640 | 1640 |
1641 (defun tags-complete-tags-table-file (string predicate what) | 1641 (defun tags-complete-tags-table-file (string predicate what) |
1642 (save-excursion | 1642 (save-excursion |