Mercurial > emacs
comparison lisp/progmodes/etags.el @ 4486:3ab31f82a529
(etags-goto-tag-location): If match started with Ctrl-m,
compensate when setting point.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 08 Aug 1993 07:21:22 +0000 |
| parents | 5568d8e60c21 |
| children | 8ca17ed2aeb8 |
comparison
equal
deleted
inserted
replaced
| 4485:6e6fd9ff650f | 4486:3ab31f82a529 |
|---|---|
| 973 offset (* 3 offset))) ; expand search window | 973 offset (* 3 offset))) ; expand search window |
| 974 (or found | 974 (or found |
| 975 (re-search-forward pat nil t) | 975 (re-search-forward pat nil t) |
| 976 (error "`%s' not found in %s; time to rerun etags" | 976 (error "`%s' not found in %s; time to rerun etags" |
| 977 pat buffer-file-name))) | 977 pat buffer-file-name))) |
| 978 ;; Position point at the right place | |
| 979 ;; if the search string matched an extra Ctrl-m at the beginning. | |
| 980 (and (eq selective-display t) | |
| 981 (looking-at "\^m") | |
| 982 (forward-char 1)) | |
| 978 (beginning-of-line)) | 983 (beginning-of-line)) |
| 979 | 984 |
| 980 (defun etags-list-tags (file) | 985 (defun etags-list-tags (file) |
| 981 (goto-char 1) | 986 (goto-char 1) |
| 982 (if (not (search-forward (concat "\f\n" file ",") nil t)) | 987 (if (not (search-forward (concat "\f\n" file ",") nil t)) |