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
