From: Francesco Potortì <pot@gnu.org>
Date: Mon, 13 Sep 2004 19:57:25 +0000 (+0000)
Subject: (main): When relative file names are given as argument,
X-Git-Tag: ttn-vms-21-2-B4~4928
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91702d637640aa010999abc7e8ce94927620a82b;p=emacs.git

(main): When relative file names are given as argument,
make them relative to the current working dir, rather than
relative to the output tags file, if the latter is in /dev.
---

diff --git a/lib-src/etags.c b/lib-src/etags.c
index f68c2e2bb95..a6004a048a9 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -40,7 +40,7 @@
  * configuration file containing regexp definitions for etags.
  */
 
-char pot_etags_version[] = "@(#) pot revision number is 17.4";
+char pot_etags_version[] = "@(#) pot revision number is 17.5";
 
 #define	TRUE	1
 #define	FALSE	0
@@ -1314,7 +1314,9 @@ main (argc, argv)
       cwd = concat (oldcwd, "/", "");
       free (oldcwd);
     }
-  if (streq (tagfile, "-"))
+  /* Relative file names are made relative to the current directory. */
+  if (streq (tagfile, "-")
+      || strneq (tagfile, "/dev/", 5))
     tagfiledir = cwd;
   else
     tagfiledir = absolute_dirname (tagfile, cwd);