[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 (executable)
--- 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