diff options
| author | Richard M. Stallman | 1995-01-12 05:50:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-01-12 05:50:13 +0000 |
| commit | 08b894ab8b9eeea4cd707560ecd84debab174ff3 (patch) | |
| tree | d4ddf94bf6543be98fa84df5cd7f7ef65f2f30a6 | |
| parent | 6b410da764ff2df0e05373361f902939d3065f13 (diff) | |
| download | emacs-08b894ab8b9eeea4cd707560ecd84debab174ff3.tar.gz emacs-08b894ab8b9eeea4cd707560ecd84debab174ff3.zip | |
(etags-goto-tag-location): Add 1 to char positions in TAGS.
| -rw-r--r-- | lisp/progmodes/etags.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 84d0154c154..1817f6f1ae6 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1050,6 +1050,9 @@ See documentation of variable `tags-file-name'." | |||
| 1050 | (pat (concat (if (eq selective-display t) | 1050 | (pat (concat (if (eq selective-display t) |
| 1051 | "\\(^\\|\^m\\)" "^") | 1051 | "\\(^\\|\^m\\)" "^") |
| 1052 | (regexp-quote (car tag-info))))) | 1052 | (regexp-quote (car tag-info))))) |
| 1053 | ;; The character position in the tags table is 0-origin. | ||
| 1054 | ;; Convert it to a 1-origin Emacs character position. | ||
| 1055 | (if startpos (setq startpos (1+ startpos))) | ||
| 1053 | ;; If no char pos was given, try the given line number. | 1056 | ;; If no char pos was given, try the given line number. |
| 1054 | (or startpos | 1057 | (or startpos |
| 1055 | (if (car (cdr tag-info)) | 1058 | (if (car (cdr tag-info)) |