Mercurial > emacs

changeset 10402:4f4177cd49b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(etags-goto-tag-location): Add 1 to char positions in TAGS.
author Richard M. Stallman <rms@gnu.org>
date Thu, 12 Jan 1995 05:50:13 +0000
parents 598ca194bb60
children c0e27466fb3f
files lisp/progmodes/etags.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))