/[emacs]/emacs/lisp/vc-arch.el
ViewVC logotype

Diff of /emacs/lisp/vc-arch.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by monnier, Tue Sep 7 04:49:03 2004 UTC revision 1.11 by monnier, Wed Sep 8 22:15:33 2004 UTC
# Line 254  Return non-nil if FILE is unchanged." Line 254  Return non-nil if FILE is unchanged."
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)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26