(tags-completion-at-point-function): Simplify autoloading

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 597612196fda83cd23a9f2be75a1e11cf63cfafa..bcff0de7e16c4b43aa642f71f3f8236500213508 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -817,12 +817,7 @@ tags table for BUF and its (recursively) included tags tables."
                                 (tags-completion-table buf)
                                 string pred))))))
 
-;;;###autoload (defun tags-completion-at-point-function ()
-;;;###autoload   (if (or tags-table-list tags-file-name)
-;;;###autoload       (progn
-;;;###autoload         (load "etags")
-;;;###autoload         (tags-completion-at-point-function))))
-
+;;;###autoload
 (defun tags-completion-at-point-function ()
   "Using tags, return a completion table for the text around point.
 If no tags table is loaded, do nothing and return nil."