(tag-exact-file-name-match-p): Fix previous change.

This commit is contained in:
Erik Naggum 1996-07-23 22:32:48 +00:00
parent 5a3d3a1674
commit 46b3fc26d9

View file

@ -1240,7 +1240,7 @@ See documentation of variable `tags-file-name'."
(defun tag-exact-file-name-match-p (tag)
(and (looking-at ",")
(save-excursion (backward-char (length tag)))
(save-excursion (backward-char (length tag))
(looking-at "\f\n"))))
;; t if point is in a tag line with a tag containing TAG as a substring.