Skip to content

Instantly share code, notes, and snippets.

@nikomatsakis
Created May 7, 2013 15:26
Show Gist options
  • Save nikomatsakis/5533501 to your computer and use it in GitHub Desktop.
Save nikomatsakis/5533501 to your computer and use it in GitHub Desktop.
Make etags-select invoke visit-tags-table is tags-table-list is empty
commit f4a21a1e16f6e9234dc4930b4a68feb67fafaf1b
Author: Niko Matsakis <niko@alum.mit.edu>
Date: Tue May 7 11:25:56 2013 -0400
query if the tags table is not yet loaded
diff --git a/emacs/etags-select.el b/emacs/etags-select.el
index 751ac18..96bcdb0 100644
--- a/emacs/etags-select.el
+++ b/emacs/etags-select.el
@@ -257,7 +257,12 @@ to do."
"Get tag files."
(if etags-select-use-xemacs-etags-p
(buffer-tag-table-list)
- (mapcar 'tags-expand-table-name tags-table-list)))
+ ; NDM---modified this to invoke (visit-tags-table) if tags-table-list is
+ ; empty
+ (progn
+ (if (not tags-table-list)
+ (visit-tags-table-buffer))
+ (mapcar 'tags-expand-table-name tags-table-list))))
(defun etags-select-get-completion-table ()
"Get the tag completion table."
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment