Hello, OK. Your code will be included in the next release. Thank you for the patch.
2013/10/25 Jean-Marc Saffroy <[email protected]> > Hi, > > I use global from emacs, and I love it! Recently I started using the > find-file command, and I was annoyed that it prompts me with files I'm not > interested in (in particular, emacs backup files, or non-source files > generated by my builds). > > So I cooked the little patch below (against release 6.2.9). The patch > maintains the current behaviour (prompt "other" files) as a default. > > > Cheers, > Jean-Marc > > -- > [email protected] > > gtags.el | 9 +++++++-- > 1 files changed, 7 insertions(+), 2 deletions(-) > > > diff --git a/gtags.el b/gtags.el > --- a/gtags.el > +++ b/gtags.el > @@ -141,6 +141,11 @@ > :type 'boolean > :group 'gtags) > > +(defcustom gtags-find-all-text-files t > + "*If non-nil, gtags-find-file command finds all text files." > + :group 'gtags > + :type 'boolean) > + > ;; Variables > (defvar gtags-current-buffer nil > "Current buffer.") > @@ -419,7 +424,7 @@ > (defun gtags-completing (flag string predicate code) > ; The purpose of using the -n option for the -P command is to exclude > ; dependence on the execution directory. > - (let ((option (cond ((eq flag 'files) "-cPo") > + (let ((option (cond ((eq flag 'files) (if gtags-find-all-text-files > "-cPo" "-cP")) > ((eq flag 'grtags) "-cr") > ((eq flag 'gsyms) "-cs") > ((eq flag 'idutils) "-cI") > @@ -585,7 +590,7 @@ > nil nil nil gtags-history-list)) > (if (not (equal "" input)) (setq tagname input)) > (gtags-push-context) > - (gtags-goto-tag tagname "Po"))) > + (gtags-goto-tag tagname (if gtags-find-all-text-files "Po" "P")))) > > (defun gtags-parse-file () > "Input file name and show the list of tags in it." > > _______________________________________________ > Bug-global mailing list > [email protected] > https://lists.gnu.org/mailman/listinfo/bug-global > -- Shigio YAMAGUCHI <[email protected]> PGP fingerprint: D1CB 0B89 B346 4AB6 5663 C4B6 3CA5 BBB3 57BE DDA3
_______________________________________________ Bug-global mailing list [email protected] https://lists.gnu.org/mailman/listinfo/bug-global
