Change 32997 missed one conditionally unused argument.

[p5sagit/p5-mst-13.2.git] / emacs / ptags

diff --git a/emacs/ptags b/emacs/ptags
index 08a20ce..c017e66 100755 (executable)
--- a/emacs/ptags
+++ b/emacs/ptags
@@ -27,14 +27,16 @@ if test ! -z "$OS2_SHELL"; then alias find=gnufind; fi
 case "$1" in
   fullpath)
     cwd=`pwd`
+    cperl_add_tags='cperl-add-tags-recurse-noxs-fullpath'
     echo "Building TAGS with full paths"
   ;;
   *)
-  cwd='.'
+    cperl_add_tags='cperl-add-tags-recurse-noxs'
+    cwd='.'
     echo "Building TAGS with relative paths"
 esac
 
-emacs=`(which emacs || which xemacs) 2>/dev/null`
+emacs=`(which emacs || which xemacs || echo emacs) 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):
@@ -167,7 +169,7 @@ 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 ; then
     mv TAGS TAGS.tmp
 fi