diff options
| author | Stas Bekman <stas@stason.org> | 2003-08-28 09:10:48 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-11 02:58:29 +0000 |
| commit | 6c791c2c94206e808c6a387b986b6e24f3bf06b3 (patch) | |
| tree | e7e3327889655e7c7d7d563b0ac44542382baf16 /emacs | |
| parent | 4995b88c50a41133ee1eb34cb3019d84aea6658a (diff) | |
| download | perl-6c791c2c94206e808c6a387b986b6e24f3bf06b3.tar.gz | |
[patch] more fullpath TAGS patches (emacs/cperl-mode.el + emacs/ptags)
Message-ID: <3F4E8BF8.1090800@stason.org>
p4raw-id: //depot/perl@21171
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/cperl-mode.el | 18 | ||||
| -rwxr-xr-x | emacs/ptags | 6 |
2 files changed, 19 insertions, 5 deletions
diff --git a/emacs/cperl-mode.el b/emacs/cperl-mode.el index 4bf1eabd1f..26cc9f9aa0 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 diff --git a/emacs/ptags b/emacs/ptags index 08a20ce4e7..8039153de7 100755 --- a/emacs/ptags +++ b/emacs/ptags @@ -27,10 +27,12 @@ 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 @@ -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 |