diff options
| -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)) |