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

etags-regen-file-extensions: Enable for more extensions

Browse source 
* lisp/progmodes/etags-regen.el (etags-regen-file-extensions):
Add more extensions, but remove "a".  From the ones recognized by
etags, also omit "t", "ml", "l", "def" and "inc", see
https://lists.gnu.org/archive/html/emacs-devel/2024-09/msg00735.html.
(etags-regen--all-files): Use 'string-match-p' for performance.
Bind 'case-fold-search' to t to match extensions in any case.
This commit is contained in:
Dmitry Gutov 2024-09-23 21:35:00 +03:00
parent 8f265b49e3
commit 32d0c8f6af
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/progmodes/etags-regen.el
View file

@ -118,9 +118,13 @@ We currently support only Emacs's etags program with this option."
;; when it cannot determine the type of the file.
;; http://lists.gnu.org/archive/html/emacs-devel/2018-01/msg00323.html
(defcustom etags-regen-file-extensions
'("rb" "js" "py" "pl" "pm" "el" "c" "cpp" "cc" "h" "hh" "hpp"
"java" "go" "cl" "lisp" "prolog" "php" "erl" "hrl"
"F" "f" "f90" "for" "cs" "a" "asm" "ads" "adb" "ada")
'("ads" "adb" "ada" "asm" "ins" "s" "sa" "S" "src"
"c" "h" "c++" "cc" "cpp" "cxx" "h++" "hh" "hpp" "hxx" "m" "pdb"
"cs" "hs" "erl" "hrl" "fth" "tok" "f" "f90" "for" "go"
"java" "cl" "clisp" "el" "lisp" "lsp" "lua" "lm" "p" "pas"
"pl" "pm" "php" "php3" "php4" "pc" "prolog" "py" "rb" "ru" "rbw"
"rs" "oak" "rkt" "sch" "scheme" "scm" "sm" "ss"
"y" "y++" "ym" "yxx" "yy")
"Code file extensions for `etags-regen-mode'.
File extensions to generate the tags for."
@ -242,11 +246,12 @@ File extensions to generate the tags for."
(ir-start (1- (length root)))
(ignores-regexps
(mapcar #'etags-regen--ignore-regexp
etags-regen-ignores)))
etags-regen-ignores))
(case-fold-search t))
(cl-delete-if
(lambda (f) (or (not (string-match-p match-re f))
(string-match-p "/\\.#" f) ;Backup files.
(cl-some (lambda (ignore) (string-match ignore f ir-start))
(cl-some (lambda (ignore) (string-match-p ignore f ir-start))
ignores-regexps)))
files)))