*** empty log message ***

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index d869d0cdca7..36093105c6e 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -223,7 +223,9 @@ See documentation of variable tags-file-name."
         (switch-to-buffer-other-window tagbuf)
       (switch-to-buffer tagbuf))
     )
-  (setq tags-loop-form '(find-tag nil t))
+;; I turned this off because people complain that it causes trouble
+;; when they find a tag during a tags-search.  M-0 M-. is easy enough. --RMS
+;;  (setq tags-loop-form '(find-tag nil t))
   ;; Return t in case used as the tags-loop-form.
   t)