procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add new variable cperl-tags-file-name

Browse source 
* 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)
This commit is contained in:
Stefan Kangas 2020-11-19 06:12:25 +01:00
parent 4ee6fa2799
commit b6d2ea05cc
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/cperl-mode.el
View file

@ -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)