Mercurial > hg > xemacs-beta
comparison lisp/etags.el @ 375:a300bb07d72d r21-2b3
Import from CVS: tag r21-2b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:04:51 +0200 |
| parents | cc15677e0335 |
| children | d883f39b8495 |
comparison
equal
deleted
inserted
replaced
| 374:4ebeb1a5388b | 375:a300bb07d72d |
|---|---|
| 660 (if tag-table-currently-matching-exact | 660 (if tag-table-currently-matching-exact |
| 661 (setq tag-target exact-tagname | 661 (setq tag-target exact-tagname |
| 662 syn-tab exact-syntax-table) | 662 syn-tab exact-syntax-table) |
| 663 (setq tag-target tagname | 663 (setq tag-target tagname |
| 664 syn-tab normal-syntax-table)) | 664 syn-tab normal-syntax-table)) |
| 665 (with-caps-disable-folding tag-target | 665 (with-search-caps-disable-folding tag-target t |
| 666 (while tag-tables | 666 (while tag-tables |
| 667 (set-buffer (get-tag-table-buffer (car tag-tables))) | 667 (set-buffer (get-tag-table-buffer (car tag-tables))) |
| 668 (bury-buffer (current-buffer)) | 668 (bury-buffer (current-buffer)) |
| 669 (goto-char (or tag-table-point (point-min))) | 669 (goto-char (or tag-table-point (point-min))) |
| 670 (setq tag-table-point nil) | 670 (setq tag-table-point nil) |
| 961 To continue searching for next match, use command \\[tags-loop-continue]. | 961 To continue searching for next match, use command \\[tags-loop-continue]. |
| 962 | 962 |
| 963 See documentation of variable `tag-table-alist'." | 963 See documentation of variable `tag-table-alist'." |
| 964 (interactive "sTags search (regexp): ") | 964 (interactive "sTags search (regexp): ") |
| 965 (if (and (equal regexp "") | 965 (if (and (equal regexp "") |
| 966 (eq (car tags-loop-scan) 'with-caps-disable-folding) | 966 (eq (car tags-loop-scan) 'with-search-caps-disable-folding) |
| 967 (null tags-loop-operate)) | 967 (null tags-loop-operate)) |
| 968 ;; Continue last tags-search as if by `M-,'. | 968 ;; Continue last tags-search as if by `M-,'. |
| 969 (tags-loop-continue nil) | 969 (tags-loop-continue nil) |
| 970 (setq tags-loop-scan `(with-caps-disable-folding ,regexp | 970 (setq tags-loop-scan `(with-search-caps-disable-folding ,regexp t |
| 971 (re-search-forward ,regexp nil t)) | 971 (re-search-forward ,regexp nil t)) |
| 972 tags-loop-operate nil) | 972 tags-loop-operate nil) |
| 973 (tags-loop-continue (or file-list-form t)))) | 973 (tags-loop-continue (or file-list-form t)))) |
| 974 | 974 |
| 975 ;;;###autoload | 975 ;;;###autoload |
| 980 with the command \\[tags-loop-continue]. | 980 with the command \\[tags-loop-continue]. |
| 981 | 981 |
| 982 See documentation of variable `tag-table-alist'." | 982 See documentation of variable `tag-table-alist'." |
| 983 (interactive | 983 (interactive |
| 984 "sTags query replace (regexp): \nsTags query replace %s by: \nP") | 984 "sTags query replace (regexp): \nsTags query replace %s by: \nP") |
| 985 (setq tags-loop-scan `(with-caps-disable-folding ,from | 985 (setq tags-loop-scan `(with-search-caps-disable-folding ,from t |
| 986 (if (re-search-forward ,from nil t) | 986 (if (re-search-forward ,from nil t) |
| 987 ;; When we find a match, move back | 987 ;; When we find a match, move back |
| 988 ;; to the beginning of it so perform-replace | 988 ;; to the beginning of it so perform-replace |
| 989 ;; will see it. | 989 ;; will see it. |
| 990 (progn (goto-char (match-beginning 0)) t))) | 990 (progn (goto-char (match-beginning 0)) t))) |