diff options
| author | Liang Wang | 2012-03-22 10:46:05 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-03-22 10:46:05 -0400 |
| commit | 126f3d39bba8e2f1e30dfb63fff45de541a9d46f (patch) | |
| tree | 97df8944815550cdc6cfd3095da4f926ee1fe4b5 /lisp/progmodes | |
| parent | 64fee3118aed82c404193c6ef23aad65bc5994a9 (diff) | |
| download | emacs-126f3d39bba8e2f1e30dfb63fff45de541a9d46f.tar.gz emacs-126f3d39bba8e2f1e30dfb63fff45de541a9d46f.zip | |
* lisp/progmodes/etags.el (etags-list-tags): Only use tags which goto-func
understands.
Fixes: debbugs:9942
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 4b337e1c15c..6bb86738df0 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1410,7 +1410,9 @@ hits the start of file." | |||
| 1410 | tag tag-info pt) | 1410 | tag tag-info pt) |
| 1411 | (forward-line 1) | 1411 | (forward-line 1) |
| 1412 | (while (not (or (eobp) (looking-at "\f"))) | 1412 | (while (not (or (eobp) (looking-at "\f"))) |
| 1413 | (setq tag-info (save-excursion (funcall snarf-tag-function t)) | 1413 | ;; We used to use explicit tags when available, but the current goto-func |
| 1414 | ;; can only handle implicit tags. | ||
| 1415 | (setq tag-info (save-excursion (funcall snarf-tag-function nil)) | ||
| 1414 | tag (car tag-info) | 1416 | tag (car tag-info) |
| 1415 | pt (with-current-buffer standard-output (point))) | 1417 | pt (with-current-buffer standard-output (point))) |
| 1416 | (princ tag) | 1418 | (princ tag) |