1506 |
;; exact file name match, i.e. searched tag must match complete file |
;; exact file name match, i.e. searched tag must match complete file |
1507 |
;; name including directories parts if there are some. |
;; name including directories parts if there are some. |
1508 |
(defun tag-exact-file-name-match-p (tag) |
(defun tag-exact-file-name-match-p (tag) |
1509 |
(and (looking-at ",") |
(and (looking-at ",[0-9]\\|\n") |
1510 |
(save-excursion (backward-char (+ 2 (length tag))) |
(save-excursion (backward-char (+ 2 (length tag))) |
1511 |
(looking-at "\f\n")))) |
(looking-at "\f\n")))) |
1512 |
;; file name match as above, but searched tag must match the file |
;; file name match as above, but searched tag must match the file |
1513 |
;; name not including the directories if there are some. |
;; name not including the directories if there are some. |
1514 |
(defun tag-file-name-match-p (tag) |
(defun tag-file-name-match-p (tag) |
1515 |
(and (looking-at ",") |
(and (looking-at ",[0-9]\\|\n") |
1516 |
(save-excursion (backward-char (1+ (length tag))) |
(save-excursion (backward-char (1+ (length tag))) |
1517 |
(looking-at "/")))) |
(looking-at "/")))) |
1518 |
;; this / to detect we are after a directory separator is ok for unix, |
;; this / to detect we are after a directory separator is ok for unix, |
1523 |
;; partial file name match, i.e. searched tag must match a substring |
;; partial file name match, i.e. searched tag must match a substring |
1524 |
;; of the file name (potentially including a directory separator). |
;; of the file name (potentially including a directory separator). |
1525 |
(defun tag-partial-file-name-match-p (tag) |
(defun tag-partial-file-name-match-p (tag) |
1526 |
(and (looking-at ".*,") |
(and (looking-at ".*,[0-9]\\|\n") |
1527 |
(save-excursion (beginning-of-line) |
(save-excursion (beginning-of-line) |
1528 |
(backward-char 2) |
(backward-char 2) |
1529 |
(looking-at "\f\n")))) |
(looking-at "\f\n")))) |