# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1251775592 0
# Node ID 51f16a1079afe82f43afdefcf45a561e5ad976f9
# Parent  21469025a6732f3bc2887e1d35e61c4af00f2c0a
(etags-goto-tag-location): Use forward-line rather than goto-line.

diff -r 21469025a673 -r 51f16a1079af lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Tue Sep 01 03:25:10 2009 +0000
+++ b/lisp/progmodes/etags.el	Tue Sep 01 03:26:32 2009 +0000
@@ -1,8 +1,8 @@
 ;;; etags.el --- etags facility for Emacs
 
 ;; Copyright (C) 1985, 1986, 1988, 1989, 1992, 1993, 1994, 1995, 1996, 1998,
-;;               2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
-;;	Free Software Foundation, Inc.
+;;   2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;;   Free Software Foundation, Inc.
 
 ;; Author: Roland McGrath <roland@gnu.org>
 ;; Maintainer: FSF
@@ -1331,7 +1331,8 @@
 	offset found pat)
     (if (eq (car tag-info) t)
 	;; Direct file tag.
-	(cond (line (goto-line line))
+	(cond (line (progn (goto-char (point-min))
+			   (forward-line (1- line))))
 	      (startpos (goto-char startpos))
 	      (t (error "etags.el BUG: bogus direct file tag")))
       ;; This constant is 1/2 the initial search window.
@@ -1349,7 +1350,8 @@
       ;; If no char pos was given, try the given line number.
       (or startpos
 	  (if line
-	      (setq startpos (progn (goto-line line)
+	      (setq startpos (progn (goto-char (point-min))
+				    (forward-line (1- line))
 				    (point)))))
       (or startpos
 	  (setq startpos (point-min)))