*** empty log message ***

* empty log message *
d54f9e30 · Jim Blandy · 94074b19 · d54f9e30
Commit d54f9e30 authored Jul 06, 1992 by Jim Blandy
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

lisp/progmodes/etags.el lisp/progmodes/etags.el +5 -0

No files found.
--- 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