Mercurial > emacs

changeset 745:98bdd205ec6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 06 Jul 1992 22:33:26 +0000
parents 4c7627a869df
children 1b0748ff6f65
files lisp/progmodes/etags.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Mon Jul 06 21:01:07 1992 +0000
+++ b/lisp/progmodes/etags.el	Mon Jul 06 22:33:26 1992 +0000
@@ -42,6 +42,11 @@
 				     (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