scratch/etags-regen 6f26f60 08/11: Bookkeeping

[Dmitry Gutov]

branch: scratch/etags-regen
commit 6f26f60563d31df4d16481a09a1d5d3235bafd2f
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Bookkeeping
---
 lisp/progmodes/etags-regen.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lisp/progmodes/etags-regen.el b/lisp/progmodes/etags-regen.el
index 8876f38..e888036 100644
--- a/lisp/progmodes/etags-regen.el
+++ b/lisp/progmodes/etags-regen.el
@@ -112,6 +112,10 @@
           (setq should-scan t))
          ((progn (set-buffer tags-file-buf)
                  (goto-char (point-min))
+                 ;; FIXME: With a big enough TAGS, even this can be
+                 ;; slow (and, unfortunately, synchronous).  Using the
+                 ;; project-relative name here speeds it up, but only
+                 ;; by ~30%.  Some indexing could help.
                  (re-search-forward (format "^%s," (regexp-quote file-name)) 
nil t))
           (let ((start (line-beginning-position)))
             (re-search-forward "\f\n" nil 'move)
@@ -163,6 +167,7 @@
   (remove-hook 'after-save-hook #'etags-regen--update-file)
   (remove-hook 'before-save-hook #'etags-regen--mark-as-new))
 
+;;;###autoload
 (define-minor-mode etags-regen-mode
   "Generate tags automatically."
   :global t
@@ -176,4 +181,6 @@
     (advice-remove 'tags-completion-at-point-function 
#'etags-regen--maybe-generate)
     (etags-regen--tags-cleanup)))
 
+(provide 'etags-regen)
+
 ;;; etags-regen.el ends here