Created
May 7, 2013 15:26
-
-
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
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
commit f4a21a1e16f6e9234dc4930b4a68feb67fafaf1b | |
Author: Niko Matsakis <[email protected]> | |
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