Files names for pragmas strict and warnings can end in .pmc

[perl5.git] / emacs / ptags

diff --git a/emacs/ptags b/emacs/ptags
index 8039153..c017e66 100755 (executable)
--- a/emacs/ptags
+++ b/emacs/ptags
@@ -36,7 +36,7 @@ case "$1" in
     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):