Mercurial > emacs
comparison lisp/progmodes/etags.el @ 79931:7ae2b20e0d16
(tags-query-replace): Doc fix.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 26 Jan 2008 17:53:18 +0000 |
parents | a1342e6e097a |
children | d8c232d0bd1c 7dc2524306eb |
comparison
equal
deleted
inserted
replaced
79930:54e3bf0e1bbe | 79931:7ae2b20e0d16 |
---|---|
1818 (defun tags-query-replace (from to &optional delimited file-list-form start end) | 1818 (defun tags-query-replace (from to &optional delimited file-list-form start end) |
1819 "Do `query-replace-regexp' of FROM with TO on all files listed in tags table. | 1819 "Do `query-replace-regexp' of FROM with TO on all files listed in tags table. |
1820 Third arg DELIMITED (prefix arg) means replace only word-delimited matches. | 1820 Third arg DELIMITED (prefix arg) means replace only word-delimited matches. |
1821 If you exit (\\[keyboard-quit], RET or q), you can resume the query replace | 1821 If you exit (\\[keyboard-quit], RET or q), you can resume the query replace |
1822 with the command \\[tags-loop-continue]. | 1822 with the command \\[tags-loop-continue]. |
1823 | 1823 Fourth arg FILE-LIST-FORM non-nil means initialize the replacement loop. |
1824 See documentation of variable `tags-file-name'." | 1824 Fifth and sixth arguments START and END are accepted, for compatibility |
1825 with `query-replace-regexp', and ignored. | |
1826 | |
1827 See also documentation of the variable `tags-file-name'." | |
1825 (interactive (query-replace-read-args "Tags query replace (regexp)" t t)) | 1828 (interactive (query-replace-read-args "Tags query replace (regexp)" t t)) |
1826 (setq tags-loop-scan `(let ,(unless (equal from (downcase from)) | 1829 (setq tags-loop-scan `(let ,(unless (equal from (downcase from)) |
1827 '((case-fold-search nil))) | 1830 '((case-fold-search nil))) |
1828 (if (re-search-forward ',from nil t) | 1831 (if (re-search-forward ',from nil t) |
1829 ;; When we find a match, move back | 1832 ;; When we find a match, move back |