[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b6d2ea0: Add new variable cperl-tags-file-name
From: |
Stefan Kangas |
Subject: |
master b6d2ea0: Add new variable cperl-tags-file-name |
Date: |
Thu, 19 Nov 2020 00:15:04 -0500 (EST) |
branch: master
commit b6d2ea05cc886298f68e47de009fcdf1a5140c59
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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 b7dc59b..30a80ea 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b6d2ea0: Add new variable cperl-tags-file-name,
Stefan Kangas <=