;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Corrections made by Ilya Zakharevich cperl@ilyaz.org
;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de
;;; 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:
\f
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