mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(vc-arch-state): Fix parsing for `names' method.

Browse source
This commit is contained in:
Stefan Monnier 2004-09-08 22:15:34 +00:00
parent 5ee5cd1017
commit c9cb3a267c
2 changed files with 14 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2004-09-08 Stefan <monnier@iro.umontreal.ca>
* vc-arch.el (vc-arch-state): Fix parsing for `names' method.
2004-09-08 Kim F. Storm <storm@cua.dk>
* emulation/cua-rect.el (cua--highlight-rectangle): Fix last
@ -66,6 +70,9 @@
2004-09-07 Stefan <monnier@iro.umontreal.ca>
* term/xterm.el (function-key-map): Add bindings for C- and S- cursor
motion as seen on my Mac OS X xterms.
* newcomment.el (uncomment-region-default, comment-region-default):
New functions extracted from uncomment-region and comment-region.
(comment-region, comment-region-function, uncomment-region)

10
lisp/vc-arch.el
View file

@ -254,9 +254,13 @@ Return non-nil if FILE is unchanged."
(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_")))))
(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)