Commit d54f9e30 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 94074b19
......@@ -42,6 +42,11 @@ A directory name is ok too; it means file TAGS in that directory."
(concat default-directory "TAGS")
(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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment