From b6d2ea05cc886298f68e47de009fcdf1a5140c59 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 19 Nov 2020 06:12:25 +0100 Subject: [PATCH] Add new variable cperl-tags-file-name * lisp/progmodes/cperl-mode.el (cperl-tags-file-name): New variable. (cperl-write-tags): Use above new variable instead of hardcoding filename "TAGS". (Bug#8802) --- lisp/progmodes/cperl-mode.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index b7dc59bed9d..30a80ea8f22 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -6602,6 +6602,9 @@ Use as " (cperl-write-tags nil nil t t)) +(defvar cperl-tags-file-name "TAGS" + "TAGS file name to use in `cperl-write-tags'.") + (defun cperl-write-tags (&optional file erase recurse dir inbuffer noxs topdir) ;; If INBUFFER, do not select buffer, and do not save ;; If ERASE is `ignore', do not erase, and do not try to delete old info. @@ -6611,7 +6614,7 @@ Use as (if (and (not dir) (buffer-modified-p)) (error "Save buffer first!"))) (or topdir (setq topdir default-directory)) - (let ((tags-file-name "TAGS") + (let ((tags-file-name cperl-tags-file-name) (inhibit-read-only t) (case-fold-search nil) xs rel) -- 2.39.5