Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 12:27:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

(etags-goto-tag-location): Add 1 to char positions in TAGS.

Browse source
This commit is contained in:
Richard M. Stallman 1995-01-12 05:50:13 +00:00
parent 6b410da764
commit 08b894ab8b
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/progmodes/etags.el
View file

@ -1050,6 +1050,9 @@ See documentation of variable `tags-file-name'."
(pat (concat (if (eq selective-display t)
"\\(^\\|\^m\\)" "^")
(regexp-quote (car tag-info)))))
;; The character position in the tags table is 0-origin.
;; Convert it to a 1-origin Emacs character position.
(if startpos (setq startpos (1+ startpos)))
;; If no char pos was given, try the given line number.
(or startpos
(if (car (cdr tag-info))