254 |
(with-current-buffer (find-file-noselect sigfile) |
(with-current-buffer (find-file-noselect sigfile) |
255 |
(goto-char (point-min)) |
(goto-char (point-min)) |
256 |
(while (and (search-forward id nil 'move) |
(while (and (search-forward id nil 'move) |
257 |
(progn (goto-char (- (match-beginning 0) 2)) |
(save-excursion |
258 |
;; Ignore E_ entries used for foo.id files. |
(goto-char (- (match-beginning 0) 2)) |
259 |
(or (not (bolp)) (looking-at "E_"))))) |
;; For `names', the lines start with `?./foo/bar'. |
260 |
|
;; For others there's 2 chars before the ./foo/bar. |
261 |
|
(or (not (or (bolp) (looking-at "\n?"))) |
262 |
|
;; Ignore E_ entries used for foo.id files. |
263 |
|
(looking-at "E_"))))) |
264 |
(if (eobp) |
(if (eobp) |
265 |
;; ID not found. |
;; ID not found. |
266 |
(if (equal (file-name-nondirectory sigfile) |
(if (equal (file-name-nondirectory sigfile) |