(complete-symbol): New function.

(complete-tag): Definition deleted.
(esc-map): Bind M-TAB to compete-symbol.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 9e9193ae58e0913dc8180a4f7b7e8f0ed7ea73dc..55e46ecee832f5edc94a52a9c8fe4ad6ed15b699 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -215,16 +215,21 @@ is okay.  See `mode-line-format'.")
 
 (make-variable-buffer-local 'indent-tabs-mode)
 
-;; This is here to avoid autoloading etags on M-TAB.
-;; M-x visit-tags-table will autoload etags, which will redefine complete-tag.
-(defun complete-tag ()
+(define-key esc-map "\t" 'complete-symbol)
+
+(defun complete-symbol ()
   "Perform tags completion on the text around point.
 Completes to the set of names listed in the current tags table.
 The string to complete is chosen in the same way as the default
 for \\[find-tag] (which see)."
-  (interactive)
-  (error (substitute-command-keys
-         "No tags table loaded.  Try \\[visit-tags-table].")))
+  (interactive "P")
+  (if arg
+      (if (fboundp 'complete-tag)
+         (complete-tag)
+       ;; Don't autoload etags if we have no tags table.
+       (error (substitute-command-keys
+               "No tags table loaded; use \\[visit-tags-table] to load one")))
+    (info-complete-symbol)))
 
 ;; Reduce total amount of space we must allocate during this function
 ;; that we will not need to keep permanently.