From: Stas Bekman <stas@stason.org>
Date: Sun, 24 Aug 2003 22:05:00 +0000 (-0700)
Subject: [patch emacs/ptags] allow xemacs to be used
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea544449e73130764018d2271b25d591c67b445d;p=p5sagit%2Fp5-mst-13.2.git

[patch emacs/ptags] allow xemacs to be used
Message-ID: <3F4998FC.3090401@stason.org>

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

diff --git a/emacs/ptags b/emacs/ptags
index 3294ed9..0ff7836 100755
--- a/emacs/ptags
+++ b/emacs/ptags
@@ -17,6 +17,9 @@
 # Avoid builtin on OS/2:
 if test ! -z "$OS2_SHELL"; then alias find=gnufind; fi
 
+emacs=`(which emacs || which xemacs) 2>/dev/null`
+[ -x "$emacs" ] || { echo "can't find emacs or xemacs in PATH"; exit 1; }
+
 # Insure proper order (.h after .c, .xs before .c in subdirs):
 # Move autogenerated less-informative files to the end:
 # Hard to do embed.h and embedvar.h in one sweep:
@@ -141,13 +144,13 @@ etags -o TAGS.tmp -a "$@" $subdirfiles
 etags -o TAGS.tmp -a "$@" $subdirfiles1
 
 if test ! -f emacs/cperl-mode.elc ; then
-    ( cd emacs; emacs -batch -q -no-site-file -f batch-byte-compile cperl-mode.el )
+    ( cd emacs; $emacs -batch -q -no-site-file -f batch-byte-compile cperl-mode.el )
 fi
 
 # This should work with newer Emaxen
 
 cp TAGS.tmp TAGS
-if emacs -batch -q -no-site-file -l emacs/cperl-mode.elc -f cperl-add-tags-recurse-noxs ; then
+if $emacs -batch -q -no-site-file -l emacs/cperl-mode.elc -f cperl-add-tags-recurse-noxs ; then
     mv TAGS TAGS.tmp
 fi