# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 789889813 0
# Node ID 4f4177cd49b1274db9a77437e40d655c0e90c94c
# Parent  598ca194bb60b65e220aa364907988bdc1906e73
(etags-goto-tag-location): Add 1 to char positions in TAGS.

diff -r 598ca194bb60 -r 4f4177cd49b1 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Wed Jan 11 17:27:35 1995 +0000
+++ b/lisp/progmodes/etags.el	Thu Jan 12 05:50:13 1995 +0000
@@ -1050,6 +1050,9 @@
 	(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))