[Emacs-diffs] Changes to emacs/lisp/vc-arch.el

[Stefan Monnier]

Index: emacs/lisp/vc-arch.el
diff -c emacs/lisp/vc-arch.el:1.10 emacs/lisp/vc-arch.el:1.11
*** emacs/lisp/vc-arch.el:1.10  Tue Sep  7 04:49:03 2004
--- emacs/lisp/vc-arch.el       Wed Sep  8 22:15:33 2004
***************
*** 254,262 ****
        (with-current-buffer (find-file-noselect sigfile)
          (goto-char (point-min))
          (while (and (search-forward id nil 'move)
!                     (progn (goto-char (- (match-beginning 0) 2))
!                            ;; Ignore E_ entries used for foo.id files.
!                            (or (not (bolp)) (looking-at "E_")))))
          (if (eobp)
              ;; ID not found.
              (if (equal (file-name-nondirectory sigfile)
--- 254,266 ----
        (with-current-buffer (find-file-noselect sigfile)
          (goto-char (point-min))
          (while (and (search-forward id nil 'move)
!                     (save-excursion
!                       (goto-char (- (match-beginning 0) 2))
!                       ;; For `names', the lines start with `?./foo/bar'.
!                       ;; For others there's 2 chars before the ./foo/bar.
!                       (or (not (or (bolp) (looking-at "\n?")))
!                           ;; Ignore E_ entries used for foo.id files.
!                           (looking-at "E_")))))
          (if (eobp)
              ;; ID not found.
              (if (equal (file-name-nondirectory sigfile)