*** empty log message ***

1 files changed, 5 insertions, 0 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 3f2f911daed..d869d0cdca7 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -42,6 +42,11 @@ A directory name is ok too; it means file TAGS in that directory."
                                      (concat default-directory "TAGS")
                                      t)))
   (setq file (expand-file-name file))
+  ;; Get rid of the prefixes added by the automounter.
+  (if (and (string-match "^/tmp_mnt/" file)
+           (file-exists-p (file-name-directory
+                           (substring file (1- (match-end 0))))))
+      (setq file (substring file (1- (match-end 0)))))
   (if (file-directory-p file)
       (setq file (concat file "TAGS")))
   (setq tag-table-files nil