From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 6 Jul 1998 20:59:10 +0000 (-0400)
Subject: Anohter ptags improvement
X-Git-Tag: accepted/trunk/20130322.191538~37444
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3419a968bbeefe011eeb78c3583a321853782e93;p=platform%2Fupstream%2Fperl.git

Anohter ptags improvement

	Message-Id: <199807070059.UAA28815@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1360
---

diff --git a/emacs/ptags b/emacs/ptags
index d8d4926..c32a128 100755
--- a/emacs/ptags
+++ b/emacs/ptags
@@ -18,7 +18,7 @@
 if test ! -z "$OS2_SHELL"; then alias find=gnufind; fi
 
 # Insure proper order (.h after .c, .xs before .c in subdirs):
-topfiles="`echo ' ' *.y *.c *.h ' ' | sed 's/ embed.h / /'`"
+topfiles="`echo ' ' *.y *.c *.h ' ' | sed 's/ embed.h / /' | sed 's/ globals.c / /'`"
 subdirfiles="`( find ./*/* -name '*.[cy]' -print | sort ; find ./*/* -name '*.[hH]' -print | sort )`"
 xsfiles="`find . -name '*.xs' -print | sort`"
 
@@ -48,6 +48,7 @@ etags -o TAGS.tmp \
 	config_h.SH
 etags -o TAGS.tmp -a "$@" $topfiles
 etags -o TAGS.tmp -a -D -l none -r '/#define.*\t\(Perl_.*\)/\1/' embed.h
+etags -o TAGS.tmp -a globals.c
 
 perl -w014pe 'if (s/^( [^\n\x7F\x1]*\b	# 1:   TAG group
 	               (\w+)		#   2: word