X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs%2Fcperl-mode.el;h=26cc9f9aa013d6b6e3b1ba3bab900234f3c3b4c8;hb=7b8203e3be66f22041237ce6c371ea09ae857f20;hp=4bf1eabd1ff9f2b8bfd7ef287d2b72161a7d2a59;hpb=8cfd79877cc07a3e6d12a2a552e0e29b4734a54c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/emacs/cperl-mode.el b/emacs/cperl-mode.el
index 4bf1eab..26cc9f9 100644
--- a/emacs/cperl-mode.el
+++ b/emacs/cperl-mode.el
@@ -1134,6 +1134,10 @@
 ;;;				Now works for else/continue/sub blocks
 ;;;  (`cperl-short-docs'):	Minor edits; make messages fit 80-column screen
 
+;;;; After 4.37:
+;;;  `cperl-add-tags-recurse-noxs-fullpath'
+;;;    added (for -batch mode);
+
 ;;; Code:
 
 
@@ -6868,13 +6872,21 @@ Delay of auto-help controlled by `cperl-lazy-help-time'."
 	ret))))
 
 (defun cperl-add-tags-recurse-noxs ()
-  "Add to TAGS data for Perl and XSUB files in the current directory and kids.
-Use as
+  "Add to TAGS data for Perl (skipping XSUBs) in the current directory 
+and kids. Use as
   emacs -batch -q -no-site-file -l emacs/cperl-mode.el \
-        -f cperl-add-tags-recurse
+        -f cperl-add-tags-recurse-noxs
 "
   (cperl-write-tags nil nil t t nil t))
 
+(defun cperl-add-tags-recurse-noxs-fullpath ()
+  "Add to TAGS data for Perl (skipping XSUBs) in the current directory 
+and kids, using fullpath, so TAGS is relocatable. Use as
+  emacs -batch -q -no-site-file -l emacs/cperl-mode.el \
+        -f cperl-add-tags-recurse-noxs-fullpath
+"
+  (cperl-write-tags nil nil t t nil t ""))
+
 (defun cperl-add-tags-recurse ()
   "Add to TAGS file data for Perl files in the current directory and kids.
 Use as